
IL PRIMO SETTIMANALE DI SOFTWARE SU CARTA 


PER IL TUO PERSONAL COMPUTER 
Una pubblicazione della j.soft editrice 


Anno I - N° 19-2 novembre 




àPPPkz 


Bandiere 

Totocalcio 


. — I i rjf r» - : Ta^-rx'r ' i »* 1 *, 

‘ - 1 '• SJP.TSÉP&S'À ■ 




U o 




Roader 

Gestione files dati su cassetta 



iinczi= 

Spectru 


©iagramitai a torta su 
prifitìter^piotter cisto 


Sing-Sing 
Castle dungeon 


Editrice 


\J.SOft 


Con la collaborazione del Gruppo Editoriale Jackson 




















































paddle ^^QppkZ 

6 

4°ppl<z 

8 

J^T1'99/4A 

IO 

extended basic TI*99/4A 

11 

sinczlair- 
. 48K Spectrum 

15 

sinmlaii— 

16/48K Spectrum 

19 


Bandiere 

di j. Cope and W. Merris trad. e adatt. di M. Cerofolmi 

Totocalcio 

di M. Cerofolmi 

Roader 

di K. Smith trad. e adatt. di E. Re Garbagnati 

Gestione files dati su cassetta 

di M. Cristuib Grizzi 

Guerre stellari 

di J. Wadie trad. e adatt. di C. Panzalis 

La foresta stregata 

di D. Batey trad. e adatt. di C. Panzalis 


printer plotter 1520 


C64: 



14 

1J 

18 


Diagrammi a torta su printer plotter 1520 

di P Magnani e P. Salvaram 

Sing-Sing 

di D. Ingiglia 

Castle dungeon 

di D e C. Gardner trad. e adatt. di M. Anticoli e S. Albarelli 


j. soft s.r.l 

DIREZIONE, REDAZIONE, 
AMMINISTRAZIONE 

Via Rosellim, 12 
20124 MILANO 
Tel. (02) 68.88.228 


DIRETTORE RESPONSABILE: 

Pietro Dell'Orco 


COORDINAMENTO TECNICO: 

Riccardo Paolillo 


REDAZIONE: 

Lucio Bragagnolo 
Mauro Cristuib. Grizzi 


GRAFICA E IM PAGI NAZIONE: 

Margherita La Noce 
Ivana Rossi 
Raffaella Toffolatti 

FOTOCOMPOSIZIONE: 

d&b Via Vignola. 5 
Tel. 02/59.85.08 
20133 MILANO 

CONTABILITÀ: 

Giulia Pedrazzmi 
Flavia Bonaiti 

AUTORIZZAZIONE ALLA 
PUBBLICAZIONE: 

Tribunale di Milano n° 200 
del 14.04.1984 

STAMPA: 

Elcograf 
Beverate (CO) 


PUBBLICITÀ 

Concessionario per l'Italia e l'Estero Rema s.r.l. 
Via Washington. 50 
20046 MILANO 

Tel. (02) 49.88.066 (5 linee R.A.) 

Tlx. 316213 REINA I 
Concessionario esclusivo per la 
DIFFUSIONE in Italia e Estero: 

SODIP - Via Zuretti. 25 
20125 MILANO 

Spedizione in abbonamento 
postale Gruppo 11/70 
Prezzo della rivista L. 1.000 
Numeri arretrati L. 2.000 

© TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI 
SONO RISERVATI 


3 





IL TELEFONO E 02-437.385 



IN MILANO - VIA MASCHERONI, 




























































Guida all’input dei programmi sullo ZX Spectrum 


Le "parole" comprese tra parentesi graffe indicano i caratteri grafici pre- 
definiti (G). il tasto (numero seguente la G). la necessità di premere il tasto 
insieme a CAPS SHIFT (eventuale S precedente la G) e il numero di ripeti¬ 
zioni del tasto richieste (eventuale numero all'inizio dello "parola"). I ca¬ 
ratteri grafia definiti dal programma sono invece >nd<coii da lettere maiu¬ 
scole (cornspondenti al tasto da usare) sottolineate. 


Quando leggete Premete 


Vedrete 


{Gl} 

m 

(G2) 

[ 2 F] 

{G3} 


{G4} 

HJji 

{G 5} 

I 5 li 

{G 6} 

i 6 m 

(G7 } 

i/ ^ 

{ G 8 } 

l»_U 



{SG1} | 


r <*r. 1 

l min 

E33 

k 

{SG2} 

Se non sten 
ai» in modo 

( rXrv 1 

l VHtFT | 

EH. 

j 

{SG3} 

schiaceiando 

Contempo'»- 

T I HTN | 

1 iHIFT I 

m 

m 

(SG4) 

neomenie 

CAPS SHIFT 

• Q 

I 1 | 

L >H'.H .] 

l< hi 

r 

t SG 5 } 


I CA* 

r— ra 

■ 


1 uur 

I 5 1 1 


(SG6) 


i i 

1 VIIFT | 

1* fSà 


(SG7} 


[ < Ars 1 

I u«in | 

ehi 

■ 

{SG8 } 


I (a n 1 

L 1 


■ 


5« dovile 
uscire dal 
modo 0. 

schiacciale 9 


Quando leggete 


Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

o 

p 

Q 

R 

S 

T 

U 


Simbolo grafico 
definito nel 
programma in uso. 


Se non siete 

1' I 


jii in modo 

n i 


C. entrateci 

l— : _ 1 

Se dovete 

schiacciando 

IT - 1 

uscire dal 

contempcra 

l K 

credo G. 

neomenie 


schiacciate 9 

CAPS SHIFT 

Il ! 


e 9 

1_1 



rj | 


l_ _ 1 


Guida per l’input dei programmi versioni VIC IO e €64 


Notate che i listati contengono " parole " rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente di tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “ solitario ", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

{HOME} 
{SU} 
{GIU'} 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


I SHIFT 

’ 

CIR/HOMt] 




CLR/HOMf] 


■■■■ 

SHIFT 


TÌ CRSR Ul 


IHHri 


fi CRSR 111 



[SHIFT 

1 

C=CRSR=a| 




C=CRSR =>] 


, 

T| 

1 CIRI 


— 

; 

I CTRL 

11 ? m 




{CYN} 
{PUR} 
{grn } 
{BLU} 

{yel} 
[<1>] 
(< 2 >) 
[<3>] 
l<4>] 
{< 5> ] 
(< 6 >) 


lem 

| 4 | 


'V 


J 5 ] 




l6j 


' 'l 


17] 


4 ;r' 


| 6 ] 


30 

HO 

HO 

HO 

HO 

HO 



[<7>] 

m 

[<8>] 

□ 

{FI} 

□ 

{F2} 

ai 

{ F3 } 

□ 

{ F4 } 

VE 

{ F5 } 

Q 

{ F6 } 

o| 

{ F7 } 

E 

■1 

{ F8 } 


HO 

□ 

HO 

■ ■ 
■ ■ 

m 

■ 

m 

a 

Cfcj 

B 

CD 

IB 

EB 

II 

D0 

a 

w 

il 

CE 

■ 


























































































































paddle 


Bandiere 


Le vostre conoscenze geografiche si spingono 
oltre i confini italiani? Questo programma è una 
sfida interessante alla vostra memoria in pro¬ 
posito. Dovreste infatti essere in grado di sta¬ 
bilire a quale delle 4 nazioni proposte appar¬ 
tiene la bandiera che comparirà di volta in volta 


10 DIM D$<50): GOSUB 20000 
20 SC = 14: GOSUB 11000: GOSUB 21 
000: VLIN 5,3? AT 4: HLIN 5, 

38 AT 5: VLIN 5,30 AT 38: HLIN 
5,38 AT 30: IF FG THEN 70 

25 HLIN 8,11 AT 7: VLIN 7,25 AT 

8: HLIN 8,10 AT 15: COLQR= 1 
1 : VLIN 7,25 AT 13: HLIN 13, 

17 AT 25: COLOR= 4: VLIN 7,2 
5 AT 19: VLIN 7,25 AT 23: HLIN 
19,23 AT 7 

26 HLIN 19,23 AT 15: CGLOR= 6: VLIN 

7,25 AT 25: VLIN 17,25 AT 29 
: HLIN 25,2? AT 25: HLIN 27, 

2? AT 17: HLIN 25,2? AT 7: VLIN 
17,1? AT 27 

27 C0L0R= 13: HLIN 31,34 AT 7: HLIN 

31,34 AT 25: HLIN 32,34 AT 1 
5: VLIN'7,15 AT 31: VLIN 15, 

25 AT 34 

28 IF SF THEN 70 

2? GOSUB 21000: GOSUB 21030 
30 REM 

70 HOME : GOSUB 21010: INVERSE : 

FRINT "NUMERO DI BANDIERE D 
A RICONOSCERE = ": NORMAL : FRINT 
"USARE PADDLE 1 PER VARIARLO 

": HTAB 5: FLASH : PRINT 
"PREMERE PULSANTE PER CONTIN 
UARE" 


75 

VTAB 21 : 

HTAB 37: CALL 


■ 868 


: PRINT 

PDL (1) 



80 

NU = F*DL 

(1): IF PEEK 

( 

- 16 


286) < 

128 THEN 75 



85 

DIM E$(NU> , Ff-(NU) : GOSUB 

n 

2101 

90 

PR = PR + 

1 : IF PR = NU 

+ 

1 THEN 


8000 




100 

RESTORE 

: RI = INT <( 

RND <1 


) * 46) 

+ 1 ) 



105 

FOR X = 

1 TO 33: READ 

Z : 

NEXT 

1 10 

FOR Z = 

1 TO RI : READ 


,C0, 


CI,C2: NEXT 



130 

IF RI < 

18 THEN 2000 



1000 COLOR= 

CO : FOR Z = 6 

TO 

13: 


HLIN 5 

,37 AT Z: NEXT 

• 

a 

COLOR= 


CI : FOR 

Z = 14 TO 21 : 

HLIN 5 


sullo schermo. Poiché le bandiere del program¬ 
ma sono più di 40 il divertimento è assicurato 
senza timore di noiose e frequenti ripetizioni. 
Attenzione: alcuni dettagli minori dei vari em¬ 
blemi sono stati tralasciati poiché ritenuti di 
scarso valore per lo spirito del gioco. 



,37 AT 

Z: NEXT : 

COLOR= 

C2 : 


Z = 22 

TO 29: HLIN 5,37 

AT Z 


: NEXT 




1040 

IF RI 

< 27 THEN 

GOSUB 

3000 

1050 

IF RI 

> 36 THEN 

GOSUB 

4000 


1990 GOTO 9000 

2000 CQLOR= CO: FOR Z = 5 TO 15: 

VLIN 6,2? AT Z: NEXT : COLOR= 

CI : FOR Z = 16 TO 26: VLIN 6 
,2? AT Z: NEXT : COLOR= C2: FOR 
Z = 27 TO 37: VLIN 6,2? AT Z 
: NEXT 

2050 IF RI < 8 THEN GOSUB 3000 
2990 GOTO 9000 

3000 COLOR= 1: HLIN 18,24 AT 15: 

HLIN 18,24 AT 20: VLIN 16,2 
0 AT 18: RETURN 

4000 ON (RI - 36) GOTO 4010,4020 
,4030,4040,4050,4060,4070,40 
80,4090,4100 

4010 COLOR= 0: FOR Z = 5 TO 20 : VLIN 
6,2? AT Z: NEXT : RETURN 
4020 COLOR= 9: FOR Z = 13 TO 21: 

HLIN 18,24 AT Z: NEXT : COLOR= 
15: PLOT 18,13: PLOT 18,21: PLOT 
24,13: PLOT 24,21: RETURN 

4030 COLOR= 9: FOR Z = 21 TO 37: 

VLIN 6,2? AT Z: NEXT : COLOR= 

5: VLIN 7,21 AT 9: HLIN 7,11 
AT 9: COLOR= 9: PLOT 9,9: RETURN 

4040 COLOR= 15: FOR Z = ? TO 12: 

VLIN 6,2? AT Z: NEXT : FOR 
Z = 16 TO 20: HLIN 5,37 AT Z 
: NEXT : COLOR= 9: GOTO 4055 

4050 COLOR= 15 

4055 FOR Z = 10 TO 11: VLIN 6,2? 

AT Z: NEXT : FOR Z = 17 TO 
19: HLIN 5,37 AT Z: NEXT : RETURN 

4060 COLOR= 7: VLIN 6,2? AT 15: HLIN 
5,37 AT 14: GOTO 4085 
4070 COLQR= 13: GOTO 4085 
4080 COLOR= 15 
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4085 FOR Z = 16 TO 18: VLIN 6,29 
AT Z: NEXT : FOR Z = 15 TO 

18: HLIN 5,37 AT Z: NEXT : IF 
A* = "NORVEGIA" THEN COLOR= 

3: VLIN 6,2? AT 17: HLIN 5,3 
7 AT 16 

4086 RETURN 

4090 COLGR= 13: FOR Z = 13 TO 23 

: HLIN 5,37 AT Z: NEXT : GOSUB 
3000: RETURN 

4100 COLOR= 12: FOR Z = 5 TO 17: 

VLIN 6,29 AT Z: NEXT : COLOR= 
1: HLIN 15,20 AT 15: HLIN 15 
,20 AT 20: VLIN 16,20 AT 15: 
RETURN 

5000 DATA 173,48,192,136,208,5, 
206,1,3,240,9,202,208,245,17 
4,0,3,76,2,3,96,81,118,96,80 
,121,160,96,160,81,160,60,25 
5 


5001 

DATA 

MESSICO,12,15,9 

5002 

DATA 

BARBADOS,3,13,3 

5004 

DATA 

GUATEMALA,7,15,7 

5006 

DATA 

PERÙ',9,15,9 

5008 

DATA 

CAMERUN,12,9,13 

5010 

DATA 

RUANDA,9,13,12 

5012 

DATA 

SENEGAL,12,13,9 

5014 

DATA 

IRLANDA,12,15,9 

5016 

DATA 

ITALIA,12,15,9 

5018 

DATA 

ANDORRA,6,13,9 

5020 

DATA 

CIAD,3,13,9 

5022 

DATA 

GUINEA,9,13,12 

5024 

DATA 

o 

COSTA AVORI 0,9,15,1 

5026 

£. 

DATA 

MALI,12,13,9 

5028 

DATA 

NIGERIA,12,15,12 

5030 

DATA 

BELGIO,0,13,9 

5032 

DATA 

FRANCIA,3,15,9 

5034 

DATA 

INDIA,9,15,12 

5036 

DATA 

EGITTO,9,15,0 

5038 

DATA 

BOLIVIA,9,13,12 

5040 

DATA 

NIGER,11,15,12 

5042 

DATA 

VENEZUELA,13,3,9 

5044 

DATA 

BULGARIA,15,12,9 

5046 

DATA 

GERMANIA EST,0,9,13 

5048 

DATA 

JUGOSLAVIA,3,15,9 

5050 

DATA 

PARAGUAY,9,15,7 

5052 

DATA 

LUSSEMBURGO,9,15,7 

5054 

DATA 

OLANDA,9,15,7 

5056 

DATA 

GERMANIA 0 . , % 0,9,1 3 

5058 

DATA 

ETIOPIA,12,13,9 

5060 

DATA 

GABON,12,13,7 

5062 

DATA 

SIERRA LEONE,12,15,7 

5064 

DATA 

SUDAN,3,13,12 

5066 

DATA 

AUSTRIA,9,15,9 

5068 

DATA 

UPPER VOLTA,0,15,9 

5070 

DATA 

EL SALVADOR,7,15,7 

5080 

DATA 

HAITI tì 9 l f i 

5090 

DATA 

GIAPPONE,15,15,15 

5100 

DATA 

MALTA,15,15,15 

5110 

DATA 

I SLANDA,3,3,3 

5120 

DATA 

DANIMARCA,9,9,9 

5130 

DATA 

FINLANDIA,15,15,15 

5140 

DATA 

SVEZIA,7,7,7 

51 50 

DATA 

NORVEGIA,9,9,9 

5160 

DATA 

SPAGNA,9,9,9 

5170 

DATA 

PORTOGALLO,9,9,9 


8000 TEXT : HOME : HTAB 15: INVERSE 
: GOSUB 21010: PRINT " RIEPI 
LOGO ": NORMAL : POKE 34,4: IF 
V = 0 THEN 8040 

8005 VTAB 5: PRINT "SONO STATI I 

DENTI FICATI I SEGUENTI": PRINT 
"EMBLEMI :" 

8010 VTAB 10: FOR X = 1 TO V: PRINT 
X;". H ;E*(X): IF PEEK (37) < 

17 THEN 8030 

3020 GOSUB 21110: HOME : NORMAL 

8030 NEXT : GOSUB 21110 
8040 FOR X = 1 TO 150: NEXT : IF 
W = 0 THEN 8090 

8045 HOME : PRINT "NON SONO STAT 

I IDENTIFICATI I SEGUENTI": PRINT 
"EMBLEMI:": GOSUB 21020 
8050 VTAB 10: FOR Z = 1 TO W: PRINT 
Z;". ";F*(Z> : IF PEEK (37) < 

17 THEN 8080 
3060 GOSUB 21110: HOME 
8080 NEXT : GOSUB 21110 
8090 POKE 34,0: HOME : VTAB 12: PRINT 
"PREMERE IL PULSANTE PER CON 
TINUARE": FOR Z = 1 TO 9:X = 

PEEK < - 16336): FOR A = 1 TO 
75: NEXT : GOSUB 21130: RUN 
8100 END 

9000 IF R > 32 THEN RESTORE : FOR 
X = 1 TO 33: READ Z: NEXT 
9010 D*(l) = A*: FOR X = 2 TO 4 
9015 Z = INT (( RND (1) * 152) / 

4 + 1 ) 

9018 IF D$(Z) = D*(X - 1) THEN 9 
015 

9020 D*(X) = D*(Z): NEXT 
9030 HOME : INVERSE : HTAB 6: PRINT 
"DI QUALE PAESE E' QUESTA BA 
NDIERA?": PRINT : PRINT ">>> 
>>>>>>>>>" ; : HTAB 28: PRINT 
"<<<<<<<<<<<<<" ; : NORMAL : PRINT 
" PREMERE PULSANTE PER 

SCEGLIERE 

9040 R = INT ( RND ( 1 ) * 4 + 1 ) 

9050 HTAB (20 - ( LEN (D*(R)) / 

2)): VTAB 23: PRINT D*(R): GOSUB 
21090: VTAB 23: HTAB 14: PRINT 
" ":X = PEEK < - 

16286): IF X > 127 THEN 9070 

9060 R = R + 1 : IF R > 4 THEN R = 

1 

9065 GOTO 9050 

9070 TS = TS + 1: FLASH : IF D*(R 

> = a* THEN CG = CG + 1 : GOSUB 
12000: VTAB 22: HTAB 18: PRINT 
"ESATTO": GOSUB 21010: GOTO 
9220 

9200 VTAB 22: HTAB 18: PRINT "ER 
RATO": GOSUB 13000: GOSUB 21 
020: VTAB 22: HTAB 13: PRINT 
"RISPOSTA ESATTA": VTAB 23: HTAB 
(20 - ( LEN (A*) / 2)): NORMAL 
: PRINT A* 

9220 GOSUB 21090: GOSUB 21090: VTAB 
22: FLASH : PRINT "ESATTE:"; 

CG;: CALL - 868:: HTAB 31: PRINT 
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M TOTALE :" ;TS: NORMAL : GOSUB 
21090: NORMAL : GOTO 90 
11000 REM SCREEN COLOR 
11020 POKE 768,216: POKE 769,160 

: POKE 770,0: POKE 771,76: POKE 
772,44: POKE 773,254 
11050 GR 

11100 POKE 1024,SC + SC * 16: POKE 
60,0: POKE 61,4: POKE 62,254 
: POKE 63,7: POKE 66,1: POKE 
67,4: CALL 768 
11110 HOME : RETURN 
12000 L» = V + lsE*<V> = A*: RETURN 

13000 W = LI + 1:F*(UI> = B*<R>: RETURN 

20000 FOR X = 1 TO 33: READ 2: NEXT 
: FOR X = 1 TO 46: READ B$,C 
0,C1,C2:D*<X> = B*: NEXT : RESTORE 
21000 RESTORE : FOR Z = 770 TO 7 
90: READ X: POKE Z,X: NEXT : 

RETURN 


21010 FOR X = 100 TO 50 STEP - 

2: POKE 768,X: POKE 769,9: CALL 
770: NEXT : RETURN 

21020 FOR X = 25 TO 225 STEP 5: POKE 
768,X: POKE 769,9: CALL 770: 

NEXT : RETURN 

21030 FOR X = 1 TO 6: READ Z,Y: POKE 
768,Z: POKE 769,Y: CALL 770: 

NEXT : RETURN 

21080 P = 1 : RETURN 

21090 FOR X = 1 TO 1500: NEXT : RETURN 

21100 FOR Z = 1 TO 250: NEXT : RETURN 

21110 VTAB < PEEK <37) + 6) 

21120 FLASH : PRINT "PREMERE PUL 
SANTE PER CONTINUARE": NORMAL 

21130 IF PEEK ( - 16236) < 128 THEN 
21 130 

21140 POKE - 16286,0 

21150 RETURN 







Totocalcio 




È iniziato nuovamente il campionato di foot¬ 
ball. Noi italiani siamo tutti, chi più chi meno, 
tifosi di calcio. Chi non ha partecipato alle ac¬ 
canite discussioni del sabato e, sicuro di saper 
pronosticare gli esiti delle partite, non ha al¬ 
meno una volta giocato al totocalcio ? 
Utilizzando questo programma per compilare 
la schedina aumentano notevolmente le pos¬ 
sibilità di fare l'agognato 13 (ma, in fondo, an¬ 
che un 12 non sarebbe poi male). Dovrete for¬ 
nire il vostro pronostico costituito da varianti 


10 s 

L = 1 : REM SLOT 

DELLA STAMPA 


NT E 


100 

TEXT : HOME 


1 10 

DIM SK<13>,I<13> 

,PN<13,4) 

1 15 

INVERSE 


1 20 

PRINT "SISTEMA DI RIDUZIONE 
'DERIVATO'": PRINT : PRINT 

122 

NORMAL 


125 

REM -INPUT 

DEL PRONOSTI 


co 


singole, doppie e triple. 

Dovrete anche dare il numero mimmo e mas¬ 
simo di segni x e di segni 2 che prevedete usci¬ 
ranno nella schedina, tenendo presente che la 
combinazione che statisticamente ha più pro¬ 
babilità di vincita è la colonna costituita da sei 
segni cinque segni Y e due segni ‘2\ 

Il computer vi darà quindi, sul video o sulla 
stampante, tutte le colonne che. derivate dal 
sistema integrale, soddisfano i vincoli impo¬ 
sti. 


1 30 

PRINT "DARE IL PRONOSTICO": PRINT 

140 

150 

160 

: PRINT 

FOR J = 1 TO 13 
PRINT J,: INPUT " 
IF PNS = "" THEN 

" ; PN* 
PRINT 

CHE-S¬ 

170 

(7); : GOTO 150 

IF LEM <PN*> > 3 

THEN 

PRINT 

171 

172 

CHR* (7);: GOTO 
FOR I = 1 TO LEN 
IF MID$ <PN*,I,1 

150 

<PN*> 

■ m "X" 

THEN 
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PN(J,I) = 0 



173 

IF MID* (PN*,I,1) = " 
PN ( J , I ) = 1 

1 " 

THEN 

174 

IF MID* (PN*,I,1) = " 
PN(J,I) = 2 

2" 

THEN 

175 

NEXT I 



176 

PN<J,4) = LEN (PN*) 



177 

REM HTAB 20: FOR I = 1 

TO 4: 


PRINT PN(J,I); : NEXT 

I 


180 

NEXT J 



182 

PRINT : PRINT 



190 

INPUT "MINIMO,MASSIMO 
NI 2 ?" ; DM , DX 

DI 

SEG 

192 

INPUT "MINIMO,MASSIMO 
NI X ?";XM,XX 

DI 

SEG 

195 

PRINT "OUTPUT SU STAMPANTE ( 


S/N )? GET A*: PRINT 

A* ; : 


IF A* = "S" THEN PRINT 

CHR* 



(4);"PRtt";SL: GOTO 200 


196 

HOME 


20 0 

REM 


21 0 

PRINT : PRINT "COLONNE ESTRA 
TTE: ": PRINT 

499 

REM - SVILUPPO SISTEMA 

500 

1(1) = 0 


505 

REM 


510 

I (2). = 0 


515 

REM 


520 

I (3) = 0 


525 

REM 


530 

1(4) = 0 


535 

REM 


540 

I(5) = 0 


545 

REM 


550 

1(6) = 0 


555 

REM 


560 

I (7) = 0 


565 

REM 


570 

1(8) = 0 


575 

REM 


580 

I (9) = 0 


585 

REM 


590 

1(10) = 0 


595 

REM 


600 

1(11) = 0 


605 

REM 


610 

1(12) = 0 


615 

REM 


620 

1(13) = 0 


625 

REM 


630 

GOSUB 1000 


640 

1(13) = 1(13) + 1 : IF 1(13) 
= PN(13,4) - 1 THEN 625 

< 

650 

1(12) = 1(12) ♦ 1 : IF 1(12) 
= PN(12,4) - 1 THEN 615 

< 

660 

1(11) = 1(11) + 1: IF 1(11) 
= PN(11,4) - 1 THEN 605 

< 

670 

1(10) = 1(10) + 1 : IF 1(10) 
= PN(10,4) - 1 THEN 595 

< 

680 

I (?) = I(9) + 1 : IF I(9) < 
PN(9,4) - 1 THEN 585 

= 

690 

1(8) = 1(8) + 1 : IF 1(8) < 
PN(8,4) - 1 THEN 575 


700 

I(7) = I(7) + 1 : IF I(7) < 
PN(7,4) - 1 THEN 565 


710 

I(6) = I(6) + 1 : IF I(6) < 
PN(6,4) - 1 THEN 555 



720 I (5) = I <5> ♦ 1 : IF I <5) < = 

PN< 5,4) - 1 THEN 545 
730 1(4) = 1(4) + 1: IF 1(4) < = 

PN(4,4) - 1 THEN 535 
740 1(3) = 1(3) +. 1 : IF 1(3) < = 

PN(3,4) - 1 THEN 525 
750 I(2) = I(2) + 1 : IF I (2) < = 

PN(2,4) - 1 THEN 515 
760 1(1) = 1(1) + 1: IF I<1> < = 

PN(1,4) - 1 THEN 505 
800 PRINT : PRINT "TOTALE INTEGR 
ALE = ";TC 

900 PRINT "TOTALE RIDOTTO = 

C 

901 PRINT "RAPPORTO DI RIDUZIONE 

= ";TC / C 
910 END 

1000 REM -CONTROLLO VINCOLI 

DEL SISTEMA - 

1001 U1 = 0 : DI = 0:X1 = 0 

1002 TC = TC + 1: REM TOTALE INT 
EGRALE 

1060 FOR J = 1 TO 13 

1072 SK(J) = PN(J,1(J) + 1) 

1073 IF SK(J) = 0 THEN XI = XI + 

1 

1075 IF SK(J) = 2 THEN DI = DI + 

1 

1080 NEXT J 

1092 IF DI < DM THEN RETURN 

1093 IF DI > DX THEN RETURN 

1094 IF XI < XM THEN RETURN 

1095 IF XI > XX THEN RETURN 

1100- FOR J = 1 TO 13 

1101 RIS* = STR* (SK(J)): IF RIS 
* = "0" THEN RIS* = "X" 

1102 PRINT RIS*; 

1103 NEXT J 

1105 C = C + 1 

1106 TP = TP + ls IF TP = 8 THEN 
TP = 0: PRINT : PRINT 

1110 PRINT 
1200 RETURN 

Guida per l'input dei 
programmi sul TI 99/4A 

A couso del sistemo di codifico utilizzato, 
possono copitore in olcune linee delle im¬ 
provvise "ondote o copo" delle quoti , natu¬ 
ralmente, non vo tenuto conto in fase di digi- 
tozione. 

Vi potrà copitore, o volte di trovore nei listati 
di progrommi per TI 99/4o olcuni corotteri 
sottolineoti. Lo sottolineoturo roppresento 
uno porti colore codifico dei tosti di controllo: 
dovrete quindi premere il tosto indicoto dot 
corottere insieme ol tosto CONTROL. 

Ad esempio, se trovate A_ dovrete battere 
CONTROLLA; se trovate e—d, dovrete bat¬ 
tere CONTROL + SPAZIO, e cosi via. 
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I motori stanno rombando. Voi state attenden¬ 
do il segnale di partenza per dimostrare che 
Niki Lauda, in confronto a voi, non è altro che 
un pivellino! Finalmente scatta il verde... si 
parte!!! 

Una curva, un’altra e... CRASH! Vi siete inchio¬ 
dati contro il guard-rail! 

Bene, tutto questo diverrrà realtà, e senza al¬ 
cun rischio per la vostra incolumità personale, 
soltanto digitando il semplice listato di questo 
programmino Basic per il vostro TI-99/4a. 
Avrete a disposizione 4 opzioni per la scelta 
del tipo di percorso e delle difficoltà nella gui¬ 
da del vostro mini-bolide sulla lunga e ventosa 


strada generata dal computer. 

Il migliore risulterà chi avrà saputo totalizzare 
il massimo punteggio dopo aver percorso il mag¬ 
gior numero possibile di chilometri. 

Per pilotare il bolide non dovrete fare altro che 
impugnare il Joystick, o pigiare i due tasti re¬ 
canti i simboli "maggiore di" e "minore di", 
ed incrociare le dita... 

Dopo che vi sarete "impastati" (prima o poi 
capiterà, siatene certi!) comparirà il punteggio 
totalizzato e la richiesta di ulteriori istruzioni 
per procedere o terminare. 

Cosa altro aspettate per battere il listato ? 
Forza!! 


100 rem ***************** 

110 REM * ROADER * 

120 REM ***************** 

130 REM 

140 REM TI 99/4A BASIC 
150 F=12 
160 GOTO 250 

170 FOR VOL=1 TO 30 STEP 10 
180 CALL SOUND(- 1 000,-7,VOL) 

190 CALL SCREEN(INT(VOL/2•5)+1) 


200 F=19-F 

21 0 CALL COLOR( 9 , F , 1) 

220 NEXT VOL 

230 CALL COLOR(9,7,1) 

240 RETURN 

250 CALL CHAR(99,"223E2A08082A3E 
2 A" ) 


260 CALL 
F7F") 

270 CALL 
F7F") 

280 CALL 
COO") 

290 CALL 
FFF" ) 

300 CALL 
OFF") 

310 CALL 
320 CALL 
330 CALL 
340 CALL 


CHAR(100,"447C54100A2E3 

CHAR(101,"00080C1E1E3E3 

CHAR(104,"00181818183C3 

CHAR(120,"FFFFFFFFFFFFF 

CHAR(12 8,"0 OFFO OFFO 0 FFO 

COLOR(9 f 5,1) 

COLOR(10,16,1) 

COLOR(11,9,1) 

COLOR(12,2,1) 


350 CALL COLOR(13,9,2) 

360 CALL CLEAR 
370 CALL SCREEN(15) 

380 PRINT 

390 PRINT TAB(8);"c ROADER 
c" 

400 FOR T=1 TO 6 
410 PRINT 
420 NEXT T 

430 PRINT "GUIDA USANDO I TASTI 
< E > " 

440 PRINT 

450 PRINT TAB(6);"O USANDO IL JO 
YSTICK #1" 

460 FOR T=1 TO 5 
470 PRINT 
480 NEXT T 

490 FOR 1=110 TO 120 STEP .5 
500 CALL SOUND(-150,I,2) 

510 NEXT I 

520 FOR 1=120 TO 110 STEP -.3 
530 CALL SOUND(-150,1,2) 

540 NEXT I 

550 FOR T=110 TO 120 STEP .8 
560 CALL SOUND(-75,T,2) 

570 NEXT T 

580 GOSUB 170 

590 CALL SCREEN(15) 

600 CALL COLOR(9,5,1) 

610 FOR T=1 TO 250 
620 NEXT T 
630 CALL CLEAR 
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640 CALL COLOR(9,8,2) 

650 OSKILL=1 

660 PRINT TAB(2);"SCEGLI IL TIPO 
DI PERCORSO:" 

670 FOR T=1 TO 3 
680 PRINT 
690 NEXT T 

700 PRINT TAB(4);"PREMI 
710 PRINT 
720 PRINT 

730 PRINT TAB(8) ; " 1 PER NEO/PATE 
NTATO" 

740 PRINT 

750 PRINT TAB(8);"2 PER TASSISTA 


760 PRINT 

770 PRINT TAB(8);"3 PER RALLYSTA 


780 PRINT 

790 PRINT TAB(8);"4 PER PILOTA D 
I F . 1 " 

800 FOR D=1 TO 3 
810 PRINT 
820 NEXT D 
830 CALL KEY(1,K,S) 

840 RANDOMIZE 
850 IF S=0 THEN 830 
860 IF KOI 8 THEN 890 
870 SKILL=OSKILL 
880 GOTO 910 . 

890 SKILL=-(K=19)-(K=7)*2-(K=8)* 
3-(K=9)*4 

900 IF SKILL=0 THEN 830' 

910 OSKILL=SKILL 
920 PRINT 

930 PRINT TAB(8);"SI PARTE!!!!!" 


940 PRINT 
950 PRINT 

960 FOR T=1 TO 400 
970 NEXT T 
980 CALL CLEAR 
990 CALL SCREEN(3) 

1000 I =.1 

1010 IF (SKILL02) * (SKILL04) THE 
N 1030 
1020 1=.2 
1030 N=24 
1 040 J= 0 
1 050 OLDN=24 
1060 B$="xxxxxxxx" 

1070 FOR C=1 TO 4 

1080 PRINT TAB(18);"h";B$;"h" 

I 0 90 NEXT C 

II 00 FOR Q= 1 TO 4 

1110 FOR C=9 TO 6 STEP -1 
1120 IF C<>9 THEN 1 1 40 
1130 B$="xxxxxxxx" 

1140 FOR A=0 TO 6.25 STEP I 


1150 Y=COS(A) 

1160 J=J+1 

1170 PRINT TAB(8*Y+10);"h";B$;"h 

tl 

1180 IF (RND>.5)+(SKILL=1)+(SKIL 

L=2)THEN 1210 

1190 IF J<25 THEN 1 21 0 

1200 CALL HCHAR(23,28*RND+2,128) 

1210 CALL GCHAR(20,N,G) 

1220 CALL HCHAR(19,OLDN,120) 

1230 IF (G=104)+(G=128)+(G=32)TH 
EN 1440 

1240 CALL HCHAR(20,N,99) 

1250 OLDN=N 
1260 CALL KEY(0,K,S) 

1 270 IF SOO THEN 1290 
1280 CALL JOYST(1,XR,YR) 

1290 N=N+(K=44)-(K=46)+XR/4 
1300 NEXT A 
1310 B$=SEG$(B$,1,C-2) 

1320 FOR D=110 TO 129-C STEP .5 

1 330 CALL SOUND{- 150,D,2) 

1340 NEXT D 
1350 NEXT C 
1360 NEXT Q 
1370 CALL CLEAR 
1 380 CALL SCREEN(1 1 ) 

1390 PRINT TAB(5);"CE L'HAI FATT 
A,GILLES ! !" 

1 400 FOR T=1 TO 1 0 

1410 PRINT 

1420 NEXT T 

1430 GOTO 1530 

1440 CALL HCHAR(20-1,N,101) 

1450 CALL HCHAR(20,N,100) 

1460 GOSUB 170 
1470 CALL SCREEN(3) 

1480 FOR T=1 TO 500 
1490 NEXT T 
1500 CALL CLEAR 
1510 CALL COLORO, 8,2) 

1520 GOTO 1560 
1530 FOR 1=1 TO 500 
1540 NEXT I 
1550 CALL CLEAR 
1 560 CALL SCREEN(15) 

1570 PRINT TAB(6),-"HAI FATTO";J* 

10*SKILL;"P.TI!" 

1580 FOR T=1 TO 5 
1590 PRINT 
1600 NEXT T 

1610 PRINT TAB(8);"? GIOCHI ANCO 
RA ?" 

1620 PRINT 
1630 PRINT 

1640 PRINT TAB(4);"PREMI: CTASTO 
ROSSO O <S>" 


I I 




1 650 PRINT TAB ( 8) ; " - PER UN PEPC 
ORSO IDENTICO." 

1660 PRINT 

1 670. PRINT TAB (4) ; "<C> - PER CAM 
BIARE LIVELLO" 

1680 PRINT 

1690 PRINT TAB(4);"<E> - PER TER 
MINARE" 


1700 CALL KEY(1,K,S) 

1710 IF S=0 THEN 1700 

1720 IF (K=l8)+(K=2)THEN 980 

1 730 IF (K<>5) * (KOI 4) THEN 1700 


1740 IF K=14 THEN 630 
1750 END 





Questo programma è stato scritto per il TI 
99/4a fornito del modulo SSS Extended Basic. 
Permette di usare l'unità a cassette CSI come 
memoria di massa per un archivio di dati, con 
numerose opzioni per una completa gestione 
dei file s sequenziali. 

Una volta mandato in esecuzione, il program¬ 
ma vi chiederà se volete usare dati preceden¬ 
temente salvati su nastro; se rispondete affer¬ 
mativamente, verranno visualizzati i parame¬ 
tri che il computer si aspetta di trovare nel file 
dati ed il tempo di attesa necessario per legge¬ 
re l'intero file. Comparirà quindi il menu princi¬ 
pale, comprendente sette opzioni di scelta: ag¬ 
giunta (registrazione) di un nuovo record, ri¬ 
cerca di un dato record nel file, display di tutti 
i records del file con automatica eliminazione 
di eventuali records vuoti, cancellazione di un 
record, correzione e modifica di un record, or¬ 
dinamento alfabetico del file, ed infine uscita 

- fine lavoro. 

Se di sceglie l'opzione di aggiunta record, com¬ 
porre un sub-menu con quattro ulteriori 
opzioni: 

- I inserzione da tastiera 

- 2 inserzione da tastiera in posizione x 

- 3 inserzione sequenziale da un file 

- 4 inserzione random da un file 

La prima opzione rappresenta una normale in¬ 
serzione di un record in coda ai precedenti ; con 
la seconda è possibile inserire il record in una 
posizione qualsiasi nel file: se ad esempio il file 


è già composto da 100 records, con questa op¬ 
zione potremo inserire il record in posizione 5 
ottenendo uno “scroll" di tutti i records seguen¬ 
ti di una posizione, mentre con l'opzione I ci 
verrà chiesto il 10/esimo record. Con l'opzio¬ 
ne 3 si può aggiungere al file in memoria un 
numero qualunque di records prelevati in mo¬ 
do sequenziale da un altro file su nastro, men¬ 
tre con l'opzione 4 si può ottenere un'inser¬ 
zione pseudo-random di un record da un al¬ 
tro file su nastro. 

Questa opzione richiede particolare attenzio¬ 
ne nell’uso, in quanto occorre posizionare il na¬ 
stro nel punto in cui si prevede ci sia il record 
che vogliamo inserire, premere ENTER all'ap¬ 
parire dei messaggi ‘REWIND CASSETTE TA¬ 
PE THEN PRESS ENTER' e ‘PRESS CASSETTE 
PLAY THEN PRESS ENTER', e premere il ta¬ 
sto PLAY sul registratore solo quando le sopra- 
citate scritte hanno avuto un piccolo scroll verso 
l'alto sul vostro monitor. A questo punto verrà 
inserito in memoria il record desiderato. 

La ricerca di un dato record può essere effet¬ 
tuata sia in base al numero che in base ai pri¬ 
mi caratteri del record stesso, mentre corre¬ 
zioni e modifiche sono effettuate linea per li¬ 
nea su tutti i 140 caratteri standard del record. 
Quando avete finito di creare il vostro archivio 
o di operare su di esso, sinceratevi che l'ulti¬ 
mo record contenga solo i caratteri “000", che 
rappresentano un ulteriore controllo di fine del 
file (benché il programma provveda automati- 
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camente a registrare in testa al file il numero 
di records contenuti). 

Premendo il tasto 7 del menu principale vi verrà 
domandato se intendete salvare il file dati ap¬ 


pena creato e, alla risposta affermativa, ver¬ 
ranno visualizzati i parametri di struttura del 
file con il tempo di attesa necessario alla 
registrazione. 


110 GOTO 150 
120 ON ERROR 130 

130 CALL ERR( I, K , W , F) : : CALL SOU 
ND(100,500,0) 

140 PRINT "WARNING!ERROR in line 
";F: :"error code:";I: :"error t 
ype";K: :"RIPETERE LA PROCEDURA" 
:: FOR W=1 TO 1000 :: NEXT W :: 
RETURN 290 

150 CALL SCREEN(2): : FOR 1 = 0 TO 
14 :: CALL COLOR(1,13,2) : : NEXT 
I 

160 CALL CLEAR : : PRINT " GESTI 
ONE FILES CASSETTE": :"********* 
*******************... ... BYMC 


G SOFTWARE 1983": : : : 

170 PRINT "compatibili file con 
meno di 500 records": : 


180 PRINT :::::::: PRINT " 
vuoi usare dati da memoria di m 
assa?(S/N) " :: GOSUB 1320 
190 IF KEY=ASC("N")OR KEY=ASC("n 
")THEN 290 

200 CALL CLEAR : : PRINT "PARAMET 
RI DI DEFAULT:": : :"org:sequent 
ial”: :"file type: internai": :"r 
ecord len:fixed 140": :"open mod 
e : input" 

210 PRINT :"file # : 1" : :"lista s 
tampa:alfan.4 input" :: OPEN #1 : 
"CSI",INTERNAL,FIXED 140,INPUT 
220 ON ERROR 130 :: INPUT #1:A$ 
:: K=VAL(A$):: CALL CLEAR :: DIS 
PLAY AT(2,3):"ATTESA:" :: DISPLA 
Y AT(6,1)SIZE(4):"min." :: DISPL 
AY AT(6,5)SIZE(4):IMT(K*90/60)/I 

0 

230 N=1 :: FOR 1 = 1 TO K : : ON ER 

ROR 130 :: INPUT #1 :A$,B$,C$ ,D$ 
:: S$ =A$&" "&B$&" "&C$&" "&D$ 

240 MI = INT((K — I)*90/60)/l0 :: DI 

SPLAY AT(6,5)SIZE(4):MI :: IF S$ 

="" THEN 270 

250 F=3 :: GOSUB 780 

260 IF S$="000" THEN 280 

270 NEXT I 

280 CLOSE #1 

290 CALL CLEAR :: MA=500 

300 DISPLAY AT(6,3):"1 per regis 

trazione" :: DISPLAY AT(8,3):"2 


per ricerca" :: DISPLAY AT(10,3) 
:"3 per file display/elim." :: D 
ISPLAY AT(11,9):"record vuoti" 
310 DISPLAY AT(13,3):"4 per elim 
inare" :: DISPLAY AT(15,3):"5 pe 
r correggere" :: DISPLAY AT(17,3 
).:"6 per ord. alpha" :: DISPLAY 
AT(19,3):"7 per uscire" :: GOSUB 
1 320 

320 FOR 1=49 TO 55 :: IF KEY=I T 
HEN 340 

330 NEXT I :: GOTO 32767 
340 KEY=KEY-48 :: ON KEY GOSUB 3 
60,580,670,690,1030,1090,770 
350 GOTO 290 
360 REM AGGIUNTA RECORD 
370 PRINT "record";N+l: :"l-inse 
rzione da tastiera":"2-da tast.i 
n posiz. x":"3-inserz.sequenz.da 
un file":"4-inserz. random da u 
n file" 

380 GOSUB 1320 

390 IF KEY= 50 THEN GOSUB 1140 :: 
RETURN 

400 IF KEY=51 THEN 430 

410 IF KEY=52 THEN GOSUB 1210 EL 

SE 520 

420 RETURN 

430 PRINT :: INPUT "quanti recor 
ds?":B :: GOSUB 440 :: GOTO 460 

440 CALL CLEAR :: PRINT "PARAMET 
RI DI DEFAULT": :"file # : 2" : : "o 

rg:sequential": :"type:internai" 

: :"len:fixed 140": :"mode:input 

tf 

450 PRINT :"lista stampa : al fan.4 
input": : :: RETURN 

460 OPEN #2 :"CSI ",INTERNAL,INPUT 
,FIXED 140 

470 FOR 1=1 TO B :: ON ERROR 130 
:: INPUT #2 :A$,B$,C$,D$ :: S$=A 
$&" "&B$&" "&C$&" "&D$ :: IF S$= 
"" THEN 500 
480 F=3 :: GOSUB 780 
490 IF S$="000" THEN 510 
500 NEXT I 

510 CLOSE #2 :: RETURN 
520 PRINT :: LINPUT "inserisci i 
1 record ":S$ :: IF S$=" 

" THEN RETURN 
530 GOSUB 810 
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540 IF F=3 THEN GOSUB 780 

550 IF F=1 THEN PRINT S$;"ATTENZ 

IONE ! e' già' nel file!" ELSE 570 

560 CALL SOUND(200,500,0) : : GOSU 
B 930 :: RETURN 

570 IF F=2 THEN PRINT "ATTENZION 
E! il file e' già' completo con 
500 records!" ELSE RETURN 
580 PRINT "1-ricerca in base al 
numero 2-ricerca in base al nome 
" :: GOSUB 1320 :: IF KEY=ASC 
("2")THEN 620 

590 INPUT "numero del record? 

B : : IF N$(B)="" THEN PRINT "ATT 
ENZIONElquesto record none'nel f 
ile!" ELSE 610 

600 CALL SOUND(200,500,0): : GOSU 
B 930 :: F=5 :: RETURN 
610 PRINT N$(B): : GOSUB 930 :: R 
ETURN 

620 GOSUB 1330 :: GOSUB 810 :: B 
= K 

630 IF F=3 THEN PRINT "ATTENZION 
E! questo record non e' nel fi 
le!" ELSE 650 

640 CALL SOUND(200,500,0) : : GOSU 
B 930 :: F=5 :: RETURN 
650 PRINT : :"numero del record: 
";B:N$(B) : : FOR W=1 TO 1000 :: N 
EXT W 

660 GOSUB 930 : : RETURN 

670 GOSUB 850 

680 GOSUB 930 : : RETURN 

690 PRINT "1-ricerca in base al 

numero 2-ricerca in base al nome 

" :: GOSUB 1320 :: IF KEY=ASC("2 

")THEN 710 

700 INPUT "numero del record?" :B 
: : GOTO 74 0 

710 GOSUB 1330 :: GOSUB 810 :: B 
= K 

720 IF F=3 THEN PRINT "ATTENZION 
E! questo record non e' nel fi 
le!" ELSE 740 

730 CALL SOUND(200,500,0): : GOSU 
B 930 :: RETURN 
740 GOSUB 880 

750 PRINT "OK. il record e' cane 
ellato" 

760 GOSUB 930 : : RETURN 
770 GOTO 950 

780 REM AGGIUNGE UN RECORD 
790 IF N=MA THEN F=2 :: RETURN 
800 F=3 :: N=N+1 :: N$(N)=S$ :: 

RETURN 

810 REM RICERCA SEQUENZIALE 
820 FOR K=1 TO N :: IF S$=SEG$(N 
$(K),1,5)THEN F=1 :: RETURN 


830 NEXT K 

840 F=3 :: RETURN 

850 REM DISPLAY IL FILE 

860 FOR 1=1 TO N :: IF N$(I)="" 

THEN N$(I)=N$(1 + 1) : : R=R+1 

870 PRINT "ree.";I;TAB(10);N$(I) 

: : : : NEXT I : : N = N-R : : R=0 : : 
RETURN 

880 REM CANCELLA UN RECORD 

890 N=N-1 :: IF B=N+1 THEN RETUR 

N 

900 FOR I = B TO N : : N$(I)=N$(I + 1 
) : : NEXT I : : RETURN 
910 REM FINE 
920 GOTO 950 

930 FOR W=1 TO 800 :: NEXT W 
940 RETURN 

950 CALL CLEAR :: PRINT "vuoi re 
gistrare il file? (S/N) " :s GOS 
UB 1320 :: IF KEY=ASC("S")OR KEY 
=ASC("s")THEN 960 ELSE 1020 
960 CALL CLEAR : : PRINT "PARAMET 
RI DI DEFAULT:": : :"org:sequent 

ial": :"file type: internal": :"r 
ecord type:fixed 140": :"open mo 
de : output" 

970 PRINT :"file #:1": :"lista s 
tampa: alfanumerica": : : :: OPEN 

#1 :"CSI",INTERNAL,FIXED 140,OUT 
PUT 

980 PRINT #1 :STR$(N) : : CALL CLEA 
R :: DISPLAY AT(2,3):"ATTESA" :: 

DISPLAY AT(6,1)SIZE(4):"min." : 

: DISPLAY AT(6,5)SIZE(4):INT(N*9 
0/60)/I0 

990 FOR 1=1 TO N :: ON ERROR 130 
:: PRINT #1:N$(I):: DISPLAY AT( 
6,5)SIZE(4) :INT((N-I)*90/60)/I 0 
:: IF N$(I)="000" THEN 1010 
1000 NEXT I 
1010 CLOSE #1 
1020 END 

1030 PRINT "quale record e' da m 
odificare?" :: GOSUB 580 
1040 IF F=5 THEN RETURN 
1 050 A$=SEG$(N$(B) ,1,28) : : B$=SE 
G$(N$(B) ,29,56) : : C$ = SEG$(N$(B) , 
57,84):: D$=SEG$(N$(B) ,85,112): : 
E$=SEG$(N$(B) ,113,140) : : PRINT 
: :"correggi riga per riga:": : 

1060 DISPLAY AT(24,1):A$ :: ACCE 
PT AT(24,1)SIZE(-28):A$ :: DISPL 
AY AT(24,1):B$ :: ACCEPT AT(24,1 
)SIZE(-28):B$ :: DISPLAY AT(24,1 
) :C$ :: ACCEPT AT(24,1)SIZE(-28) 
:C$ 

1070 DISPLAY AT(24,1):D$ :: ACCE 
PT AT(24,1)SIZE(-28) :D$ :: DISPL 
AY AT(24,1):E$ :: ACCEPT AT(24,1 
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)SIZE(-28):E$ :: N$(X)=A$&B$&C$& 
D$&E$ 

1080 PRINT "OK il record corrett 
o e':": :N$(B):: FOR W=1 TO 1000 
: : NEXT W : : RETURN 
1090 REM ALPHA SORT 
1100 FOR 1=1 TO N-1 :: IF N$(I+1 

)>=N$(I)THEN 1120 
Ilio A$ =N$(1 + 1) : : N$(1 + 1)=N$(I) : 

: N$ (I) =A$ : : GOTO 1100 
1120 NEXT I 

1130 PRINT "OK.sono in ordine al 
fabetico" :: FOR W=1 TO 1000 :: 
NEXT W : : RETURN 

1140 REM AGGIUNGE UN RECORD ALLA 
POSIZIONE B 

1150 PRINT :: INPUT "in quale po 
sizione? ":B :: LINPUT "inserisc 
i il record ":S$ :: GOSU 

B 81 0 

1160 IF F=3 THEN 1170 ELSE 1180 

1170 FOR K=N TO B STEP -1 : : N$( 

K+1)=N$(K) : : NEXT K :: NS(B)=S$ 

: : N=N+1 : : RETURN 

1180 IF F=1 THEN PRINT S$;"ATTEN 
ZIONE ! e' già' nel file!" ELSE 12 
00 

1190 CALL SOUND(200,500,0) : : GOS 
UB 93 0 : : RETURN 

1 200 IF F = 2 THEN PRINT "ATTENZIO 
NE! il file e' già' completo con 
500 records!" ELSE RETURN 
1210 PRINT : : :: PRINT "1-ricer 

ca in base alla posiz2-ricerca i 
n base al record": : :: GOSUB 13 

20 


1 220 KEY= KEY-48 :: ON KEY GOSUB 
1250,1280 
1230 RETURN 

1240 INPUT "quale posizione? ":B 
:: GOSUB 440 

1250 PRINT :: INPUT "in quale po 
sizione? ":B 

1 260 OPEN #2 : "CSI ", INPUT ,FIXED 
140,INTERNAL :: FOR 1=1 TO (B-l) 
:: ON ERROR 130 :: INPUT #2:S$ : 
: NEXT I : : ON ERROR 130 : : INPU 
T #2:A$,B$,C$,D$ :: N$(N+l)=A$&" 

"&B$ &" "&C$&" "&D$ 

1 270 CLOSE #2 : : N = N+1 : : RETURN 

1280 GOSUB 1330 :: PRINT :: INPU 
T "quanti records probabilmentec 
i sono nel file? ":B :: GOSUB 44 
0 

1 290 OPEN #2 :"CSI ",INTERNAL,FIXE 
D 14 0,INPUT :: FOR 1 = 1 TO B : : 0 
N ERROR 130 :: INPUT #2:A$,B$,C$ 
,D$ :: E$ =A$ &" "& B$& " "&C$&" "&D 
$ IF SEG$(E$,1,5)=S$ THEN N$( 

N+1)=E$ : : GOTO 1310 
1300 NEXT I 

1310 N=N+1 :: CLOSE *2 :: RETURN 

1 320 CALL KEY(0,KEY,STATUS) : : IF 
STATUS=0 THEN 1320 ELSE RETURN 

1330 PRINT "batti l'inizio cel r 
ecord di5 caratteri ";TA3(18);" 

" :: ACCEPT AT(23,13)SIZE(5) : SS 
: : RETURN 



sinnzìaifyt 

Spectrugr 

» 



Guerre stellari 

48K 


Riuscirete a proteggere il convoglio spaziale che 
vi è stato affidato dai numerosissimi veicoli alie¬ 
ni che infestano quel quadrante di galassia ? Il 
vostro Spectrum mostra subito la sua sfiducia 
a tale proposito, comunicandovi che trattasi di 
missione impossibile e che difficilmente potre¬ 
te rivedere i vostri cari! Se nonostante questo 
vi sentite pronti a rischiare la vostra pelle per 


un nobile ideale potrete comunque venderla ca¬ 
ra e nel frattempo godervi la entusiasmante 
grafica di questo gioco. In effetti il programma 
presenta una ampia tipologia di astronavi alie¬ 
ne, capace di entusiasmare il giocatore anche 
dopo numerose partite; questa caratteristica, 
combinata agli altri effetti grafici veramente no¬ 
tevoli (anche perché realizzati esclusivamente 
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in BASIC), olio colonno sonoro, e olle buone 
possibilità di movimento vi terranno certamente 
olio tastiera per numerose missioni. 

I comandi sono i tosti del cursore (do '5' a '8 ' 
per muoversi nello direzione delle frecce), il to¬ 
sto V per far fuoco contro il nemico, ed infi¬ 
ne il tosto ' r per attraccare olla bose che viag¬ 
gio al seguito del convoglio ove vi potranno es¬ 
sere prestate le riparazioni di cui necessitate. 
Queste ultime si rendono improrogabili quan¬ 
do uno strumento della plancia, DAN%, vi in¬ 
forma che i danni subiti sino a quel momento 
sono vicini al 100%. Attraccando i danni ver¬ 


1 BORDER 0: PAPER 6: INK 0: 

CLS : GO SUB 9500: GO TO 2 

2 PAPER 7: INK 1: BORDER 1: 

CLS : PRINT AT 3 f 8 ; 11 GUERRE 
STELLARI";AT 4 f 8 ;" 

{16SG3}" 

3 PRINT INK 2 ; AT 7,8;"PLANCI 
A: COMANDI"; INK 0;AT 9,9;" 
5 = SINISTRA";AT 11,9;"8 = 
DESTRA";AT 13,9;"6 = PICCHI 
ATA";AT 15,9;"7 = CABRATA" 

4 PRINT INK 0 ;AT 17,9;"1 = A 
TTRACCO";AT 19,9 ;"0 = FUOCO 

n 

5 RESTORE 6: FOR n=l TO 19: 

READ c,d: BEEP C,d: NEXT n 
: PAUSE 500 

6 DATA .15,7,.15,7,.15,7,.9,0 
, .9,7,.15,5,.15,4, .1 5,2, .9, 
1 2, .45,7, . 1 5,5, .1 5,4, .1 5,2, 
.9,1 2, .45,7,.15,5,.15,4, .15 
,5,1,2 

7 BORDER 0: PAPER 1: INK 7: 

CLS 

14 PRINT AT 5,13;"STIAMO";AT 7 
,9;"TRASMETTENDO I";AT 9,10 
;"NOSTRI DATI" 

15 FOR g=l TO 20: FOR f=0 TO 7 
: BORDER f: BEEP .02,f: 

NEXT f: NEXT g 

18 GO SUB 8000 

19 INK 5: PAPER 0: BORDER 0: 

CLS 

20 PLOT 0,40: DRAW 70,0: 

DRAW 20,-20: DRAW 75,0: 
DRAW 20,20: DRAW 70,0 

21 PLOT 2,38: DRAW 68,0: 

DRAW 20,-20: DRAW 75,0: 
DRAW 20,20: DRAW 68,0 

22 PLOT 2,38: DRAW 0,-36: 

DRAW 251,0: DRAW 0,36: 


ranno riparati: questa facilitazione non può tut¬ 
tavia essere sfruttata per più di tre volte. 

Altri strumenti di bordo sono: ACG, che mo¬ 
stra quante astronavi nemiche avete colpito; 
ENE, che si riferisce all'energia disponibile per 
il vostro laser: CI, che mostra il tipo di astro¬ 
nave che vi attacca. 

Prima di catapultarvi nei cieli, una raccoman¬ 
dazione: non rispondete 'No' alla domanda di 
ripetizione partita se prima non avete salvato 
il programma su nastro ; in caso contrario per¬ 
dereste tutto quanto battuto. 


PLOT 90,18: DRAW 0,-16: 
PLOT 165,18: DRAW 0,-16 

25 PRINT INK 7;AT 18,23;"ACD: 
";AT 2 0,23;"CI";AT 18,1 ;"DA 
N% : " 

26 PRINT INK 7;AT 20,1;"ENE:" 
;AT 20,12;" 

590 LET dock=0: LET gog=INT ( 
RND*26)+27 : LET ran=INT ( 
RND*13)+13 : LET rf = 0: LET c 
=0: LET sc=0: LET ra=INT ( 
RND*8)+4: LET acd=0 

591 LET fo=l0 : LET fpr = 20: 

LET fort=30 

598 LET ph = l 000: LET dam=0 

599 PRINT INK 5;AT 20,17;" 

{ 2G8}" 

600 LET da=INT (RND*30)+15 
610 LET d=INT (RND*14): LET a= 

INT (RND* 2 7) 

620 LET ri=INT (RND+.5): IF rl= 
0 AND d>4 THEN LET d=d-l: 
IF r1=1 AND d<l7 THEN 
LET d=d+l 

630 LET r2=INT (RND+.5): IF r2= 
0 AND a>2 THEN LET a=a-l: 
IF r2=1 AND a<16 THEN 
LET a=a+l 

641 IF INKEY$ = "8" AND a<17 

THEN LET a=a+3 

642 IF INKEY$ = "7" AND d>3 

THEN LET d=d-3 

643 IF INKEY$="6" AND d<13 

THEN LET d=d+3 

644 IF INKEY$ = "5" AND a>2 

THEN LET a=a-3 

645 IF INKEY$="1" THEN GO TO 8 
500 

647 IF INKEY$=" " THEN GO TO 9 
998 

64 9 LET c=c+l : IF c> = fo THEN 
GO TO 652: IF c>=for 
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THEN GO TO 651 

650 PRINT INK 6;AT d,a;a$: 

GO TO 654 

651 PRINT AT d,a;b$: GO TO 655 

652 PRINT INK 6;AT d,a;c$ 

655 IF INKEY$ = "0" THEN LET ph = 
ph-10: PRINT INK 7 ;AT 20,5 
;ph: GO TO 6000 

700 FOR b=-20 TO -15: BEEP .005 
,b: NEXT b 

800 LET rf=rf+1 

801 PRINT INK 6;AT 20,26;c$ 

805 PRINT INK 7;AT 9,16;"|"; 

AT 11,16;"|";AT 10,15;"-"; 

AT 10,17;"-" 

810 IF rf<fort THEN GO TO 900 

812 FOR x=4 TO 0 STEP -4 

813 PLOT a*8 + 10,175-d*8 : DRAW 

INK x;40,-36 

814 FOR 1=0 TO 10: BEEP .05,3: 

NEXT 1: BEEP .05,10: 

BEEP .05,12 

815 NEXT x 

816 FOR x=7 TO 0 STEP -1: 

BEEP .005,INT (RND*10): 
BORDER x: NEXT X 
819 LET rf=0 : LET c=0: LET dam= 
dam 

820 LET dam=dam+da: PRINT 
INK 7;AT 18,6;dam 
825 IF dam>60 AND dam<100 
THEN GO TO 9300 
830 IF dam>=99 THEN GO TO 9400 

840 PRINT AT d,a;" ": GO TO 6 

00 

900 PRINT AT d ,a;" " 

1000 GO TO 620 

6000 REM fuoco 

6001 IF ph<100 AND ph>0 THEN 

PRINT AT 20,7;" " 

6010 IF ph<=-100 THEN GO TO 930 
0 

6105 FOR n=3 TO 0 STEP -3 
6110 PLOT INK 0; 7,48 : DRAW 
INK n;119,41 

6120 PLOT INK 0;248,48: DRAW 
INK n; -11 0,40 
6125 NEXT n 

6127 FOR q=l TO 10 : BEEP .01,1+f 
: BEEP .01 ,10: NEXT q 
6130 IF ATTR (10,16) =6 THEN 
GO TO 61 34 

6133 GO TO 656 

6134 GO SUB 7000 

61 35 LET acd=acd+l: LET sc = sc+l: 
LET rf=0: PRINT INK 7; 

AT 18,27;acd 

6136 IF sc=43 THEN GO TO 9600 


6139 LET c=0: IF sc=ra THEN 

GO SUB 8015 

6140 IF sc=ran THEN GO SUB 8025 

6141 IF sc=gog THEN GO SUB 8035 

6143 GO TO 600 
7000 LET z$="E" 

7010 FOR n=6 TO 0 STEP -6 

7011 LET cox=0 

7015 PRINT INK n; BRIGHT 1;AT 1 
0,1 5 ;z$ 

7020 FOR p=l TO 4 
7030 PRINT INK n;AT 10+p,15+p; 
z$;AT 10-p,15-p;z$;AT 10+p, 
15-p;z$;AT 10-p,15+p;z$; 

AT 10,15+p;z$;AT 10,15-p;z$ 
;AT 10+p,15;z$;AT 10-p,15;z 
$ 

7035 BEEP .0025,INT (RND*20) 

7040 NEXT p: NEXT n 

7041 LET cox=cox+l 

7042 IF cox=2 THEN GO TO 7045 

7043 FOR n=3 TO 0 STEP -3 

7044 GO TO 7015 

7045 BRIGHT 0: RETURN 

8000 FOR f=0 TO 4: FOR g=0 TO 7: 

READ a: POKE USR CHR$ (144 
+f)+g,a: NEXT g: NEXT f 

8001 LET a$=" A ": LET C$="BCD" 

8005 DATA 0,0,36,195,255,219,0,0 

8006 DATA 96,241,250,252,255,255 
,241,96 

8007 DATA 129,24,60,126,255,255, 
255,90 

8008 DATA 6,143,95,63,255,255,14 
3,6 

8009 DATA 64,0,98,33,0,24,1,133 

8010 RETURN 

8015 RESTORE 8020: FOR f=0 TO 3: 

FOR g=0 TO 7: READ a: 

POKE USR CHR$ (149+f)+g,a: 
NEXT g: NEXT f 

8016 LET a$=" F ": LET c$="GHI" 

8020 DATA 0,129,66,60,60,66,129, 

0 

8021 DATA 192,48,12,3,3,12,48,19 
2 

8022 DATA 0,126,195,231,255,126, 

0,0 

8023 DATA 3,12,48,192,192,48,12, 

3 

8024 RETURN 

8025 RESTORE 8027: FOR f=0 TO 3: 

FOR g=0 TO 7: READ a: 

POKE USR CHR$ (153+f)+g,a: 
NEXT g: NEXT f 
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8026 LET a$=" J LET c$="KLM” 

8027 DATA 0,0,126,219,255,126,0, 
0 

8028 DATA 3,15,62,252,63,15,3,0 

8029 DATA 255,255,126,60,255,255 
,255,165 

8030 DATA 192,240,124,63,252,240 
,192,0 

8031 RETURN 

8035 RESTORE 8037: FOR f=0 TO 3: 

FOR g=0 TO 7: READ a: 

POKE USR CHR$ (157+f)+g,a: 

NEXT g: NEXT f 

8036 LET a$=" N LET c$="OPQ" 

8037 DATA 0,66,153,255,153,66,0, 
0 

8038 DATA 96,64,193,255,255,193, 
64,96 

8039 DATA 0,255,231,219,219,231, 
255,0 

8040 DATA 6,2,131,255,255,131,2, 
6 

8041 RETURN 

8045 RESTORE 8047: FOR f=0 TO 3: 

FOR g=0 TO 7: READ a: 

POKE USR CHR$ (161+f)+g,a: 

NEXT g: NEXT f 

8046 LET a$=" R ": LET c$="STU" 

8047 DATA 0,0,219,255,255,21970, 
0 

8048 DATA 0,112,250,142,255,254, 
250,112 

8050 DATA 0,24,60,126,195,126,60 
,24 

8051 DATA 0,14,95,113,255,127,95 
,14 

8052 RETURN 

8500 IF SCREEN$ (20,17)="C” 

THEN GO TO 610: GO TO 850 

1 

8501 GO SUB 8045: GO TO 8502 

8502 LET dock=dock+l 

8503 IF dock>=4 THEN GO SUB 803 
5: GO TO 610 

8504 PRINT AT d ,a ;" " 

8506 PRINT INK 6; FLASH 1;AT 20 
,12;"ATTRACCO" 

8507 LET cp=l 

8508 PRINT BRIGHT 1; INK 4;AT 1 
0,cp;c$ 

8509 LET cp=cp+l 

8510 IF cp=l6 THEN GO TO 8590 

8511 PAUSE 25 

8512 PRINT AT 10,cp-l;" " 

8513 GO TO 8508 

8591 FOR n=7 TO 0 STEP -1 

8592 PLOT INK 0;248,48: DRAW 

INK n,-110,40 

8593 PLOT INK 0;7,48: DRAW 


INK n, 119,40 

8594 BEEP 1,-10: BEEP 1,10: 

BEEP 1,-10 

8595 NEXT n 

8599 PRINT AT 10,14;" " 

8600 PRINT INK 5;AT 20,17;" 

{2G8}"; INK 7;AT 20,12;" 

tf 

8605 PRINT AT 18,6;" 

8606 PRINT AT 20,5;" 

8610 GO SUB 8001 

8650 GO TO 598 

9300 PRINT' INK 2;AT 20,17;" 

{2G8}" 

9350 GO TO 700 

9400 PRINT AT d,a;" ": 

BORDER 0 

9401 FOR g=l TO 3: FOR f=0 TO 7: 

BORDER f: BEEP .05,f+g-l: 

NEXT f: NEXT g 

9405 BORDER 0: PAPER 7: INK 1: 

CLS 

9410 PRINT AT 7,10 ; "E ' C O S I* 
";AT 9,7;"Q U E S T O E' 
" ; AT 1 1,4 ; " I L P A R A D 
I S O (!?!)" 

9411 PRINT TAB 4;"{27G3}" 

9420 RESTORE 9425: FOR n=0TO 35 
: READ c,d: BEÉP c,d: 

NEXT n 

9425 DATA 1,0,1,2,.5,3,.5,2,1,0, 
1,0,1,2,.5,3,.5,2,1,0,1,3,1 
,5,2,7,1,3,1,5,2,7,.75,7,.2 
5,8,.5,7,.5,5,.5,3,.5,2,1,0 
,.75,7,.25,8,.5,7,.5,5,.5,3 
,.5,2,1,0,1,0,1,-5,2,0,1,0, 
1r-5,2,0 

9426 CLS : PRINT "O.K. ragazzo, 

anche se devi ancora im 

parare qualcosa, vuoi 

riprovarci ?"•"Premi N( 
o) [NEW] 

S(i) [RUN] M 

9427 PAUSE 0: IF INKEY$="n" 

THEN NEW : GO TO 9428 

9428 PRINT FLASH 1;AT 16,3;"SEI 

UN RAGAZZO CORAGGIOSO" 

9429 FOR f=l TO 30: LET rs=INT ( 
RND*50) : BEEP .05,rs: 

NEXT f 

9430 PAUSE 100: CLS : RUN 

9500 LET i$="La tua missione con 
* siste nello scortare un co 
nvoglio spaziale nel suo v 
iaggio tra le galassie.E* i 
mprobabile che tu riesca a 

SOPRAVVIVERE ! Comunque ri 
corda che potrai attraccare 

alla base navigante per ri 
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parazioni (3 v.)" 

9505 LET i$=i$+" STRUMENT 

AZIONE DAN%=dann 

i subiti ENE 

=energia laser 
ACD =navi aliene distrutte 




CI 


tipo 

di astronav 


e 




ii 

951 0 

PRINT 

ii 



MESSAGGIO R 

951 1 

ADIO 

PP T MT 

ii 


ti 


C I\ J. LN 1 

+ + + + 



ii 


9520 

FOR b= 

= 1 

TO 

LEN i$: BEEP .00 


5,5: PRINT 

i$ (b) 

; : NEXT b 

9530 

PAUSE 

0: 

RETURN 


9600 

PRINT 

AT 

d, 

a;" 

II 

9601 

PRINT 

FLASH 1 ;AT 0,0;" 


MISSIONE 

RIUSCITA 


PAUSE 

300 


9605 

LET .se 

= 0 

: LET dam=0: LET ph 


=1000: LET dock=0: LET fo=f 


0-5: LET for=for-5: LET for 
t= for t-5 

9610 PAUSE 100: PRINT FLASH 0; 
AT 0,0;" 

9611 IF for<2 THEN LET for=2: 

IF fo< 3 THEN LET fo=3: 

IF fort< 4 THEN LET fort=4 

9615 PRINT AT 0,0 ;"RIENTRI A CAS 
A..MA PARTI SUBITO!" 

9616 PAUSE 200: PRINT AT 0,0;" 


9620 PRINT AT 18,6;" ";AT 20,5 

• Il II 

r 

9630 FOR f=l TO 30: BEEP .05,20: 

BEEP .05,0: NEXT f 
9640 GO SUB 8001 : GO TO 598 

9998 PRINT FLASH 1;AT 0,0;" 

MISSIONE FALLITA 
PAUSE 50 

9999 PAUSE 50: RUN 


La foresta stregata 


linciai^ 

Spec truyf 


16 48K 


Anche se il nome di questo gioco avventuroso 
può forse intimidire i lettori più giovani, è pro¬ 
prio ad essi che è destinato. Infatti nella fore¬ 
sta stregata potranno incontrare il Conte Dra- 
cula, o combattere con un orrendo lupo man¬ 
naro, o sfidare la sorte rischiando di bere mi¬ 
steriose pozioni velenose. Se pensate a tutti i 
rischi che si corrono attraversando una regio¬ 
ne scelta a dimora dagli spiriti maligni, vi con¬ 
vincerete che è più opportuno tentarne l'esplo¬ 
razione con l'intermediazione del vostro Spec- 
trum, tranquillamente seduti nella vostra stan¬ 
za, controllando magari con la coda dell'oc¬ 
chio che vostro fratello maggiore si trovi nelle 
vicinanze. Scherzi a parte, il gioco è adatto ai 
più giovani poiché questi ultimi sapranno ap¬ 
prezzare la simpatia che sprizza da ogni linea 
di programma, soprattutto laddove uno stra¬ 
no personaggio viene chiamato in vostro soc¬ 
corso! Caricate e vedrete. 

Il programma è costituito da due sezioni: il li¬ 


stato I è il programma principale, mentre il 
listato 2 serve solamente al caricamento dei 
caratteri grafici. Il primo va salvato con il co¬ 
mando SAVE "f.stregata” LINE 9999; quindi 
battete il secondo listato e fatelo girare senza 
salvarlo. Quando appare il messaggio O.K. date 
NEW. quindi salvate solo i codici (ancora pre¬ 
senti in memoria poiché al di sopra di RAM- 
TOP con SAVE “udg" CODE USR “cT, 168. 
Questa procedura, idonea a rendere il pro¬ 
gramma autopartente, consente un notevole 
risparmio di memoria e permette così anche 
ai possessori del 16K di utilizzare tale program¬ 
ma. 



m mp 


ritaglia 

e 

conserva 

ti 

attendono 

grosse 

sorprese! 
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La foresta stregata 

versione per ZX Spectrum I6K/48K 

listato I 


5 POKE 23658,0 

160 BORDER 7: PAPER 7:' INK 0: 

BRIGHT 0: OVER 0: 

INVERSE 0: FLASH 0: CLS 

170 PRINT "TI SEI SMARRITO IN 
UNA FORESTA E SI STA AVVICI 
NANDO MEZZANOTTE." 

180 PRINT '"'TI TROVI SULL'AR 
GlNE DI UN GROSSO CO 

RSO D'ACQUA." 

190 PRINT '''"'VUOI RISALIRLO 
OPPURE SCENDERE LUNGO 
LA CORRENTE ?" 

200 PRINT 'TAB 9;"( su o giu )-" 

210 INPUT a$ 

220 IF a$<>"su" AND a$<>"gi 
u" THEN GO TO 210 

230 LET a = INT (RND*2) 

240 IF a=1 THEN GO TO 500 

250 BORDER 0: PAPER 0: INK 6: 

CLS 

300 PLOT 0,120: DRAW 245,0: . 

PLOT 0,120: DRAW 0,30: 

GO SUB 499 


301 

DRAW 0 

,-20: 

GO 

SUB 

499: 


DRAW 

0,30: 

GO 

SUB 

499 

302 

DRAW 0 

,-10: 

GO 

SUB 

499: 


DRAW 

0,10: 

GO 

SUB 

499 

303 

DRAW 0 

,-30: 

GO 

SUB 

499: 


DRAW 

0,20: 

GO 

SUB 

499: 


DRAW 

0,-30 






304 PLOT 115,120: DRAW 0,10: 

DRAW 20,0,-PI: DRAW 0,-10 

305 BRIGHT 1: INK 7: FOR f=l 5 

TO 230 STEP 70: PLOT f,130 
: DRAW 5,0: DRAW 0,7: 

DRAW -5,0,PI: DRAW 0,-7: 

NEXT f: INK 6: BRIGHT 0 

310 PLOT 120,139: FOR a=139 

TO 120 STEP -1: PLOT 120,a 
: PLOT 125,a: PLOT 130,a: 

BEEP .01 ,a-100 : NEXT a 

320 PRINT AT 10,6;"B E N V E N 
U T I" 

321 PRINT AT 12,11;"A L L A"; 

AT 14,4;"RESIDENZA 

DI" 

324 INK 7 

325 PRINT AT 18,0;" {SG4}{G3} 

{G6}{G8}{SG4}{G3}{G7}{G8} 

{SG4}{G 3}{G7}{G8 }{ SG4}{G3} 

{G7}{G8}{SG5}{G8}{G5} 

{SG5} {SG4}{G 3}{G7} " 

330 PRINT " {SG5} {G5} {SG1} 

{SG3}{SG2} {SG1}{SG3}{SG2} 

{SG5} {SG5} {G5} {SG5} 

{SG1}{SG3}{SG2} " 

335 PRINT " {SG1}{SG3}{SG6} 

{SG5} {SG5} {SG5} {G5} 

{SG1}{SG3}{SG2} {SG1}{SG3} 
{SG2 } {SG1H2SG3} {SG5} 

{G5} 

340 FOR g=l TO 30: INK INT ( 
RND*5 + 1) : OVER 1: FOR n=18 

TO 21 : PRINT AT n,0,,: 

NEXT n: OVER 0: NEXT g 

350 BORDER 7: PAPER 7: INK 0: 

CLS 

351 PRINT "Ti senti di entrare 
nel castelloo sei un terr 
ibile "; FLASH 1;" FIFONE 
"; FLASH 0;" ?" 

352 PRINT ''"'Premi 'e' per e 

ntrare"'"' o 's' per s 

cappare !" 

353 INPUT a$ 

354 IF a$<>"e" AND a$<>"s" 

THEN GO TO 353 

355 IF a$="s" THEN GO TO 1000 

356 LET w=INT (RND*2): IF w=l 

THEN GO TO 999 

357 CLS : PLOT 0,31: DRAW 255,0 

358 FOR f=0 TO 16 
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359 PRINT AT f,f;"CD" 

360 BEEP .15,50 

361 PRINT AT f,f;"EF" 

362 FOR x=l TO 15: NEXT x 

363 PRINT AT f,f;" " 

364 NEXT f 

365 FOR a=l TO 10: LET i=RND*5: 

PRINT AT 16,16; INK i;"GH" 
;AT 17,16; INK i;"IJ» : 

FOR x=l TO 10: NEXT x: 
PRINT AT 16,16;" " ; AT 17, 

16;" ": NEXT a 

366 PRINT AT 16,16;"A";AT 17,16 
; "B" 

367 PRINT AT 19,0;"Buonasera, s 
ono il Conte Dracula" 

368 BEEP .5,-30: BEEP 1,-10: 

BEEP .25,-20: BEEP .25,-10 
: BEEP .25,0: BEEP 1,-10 

370 BORDER 2: INK 7: CLS : 

FOR in=1 TO 704 : PRINT 
INK 2 ;"{SG8}"; : NEXT m: 
PAPER 2 

371 PRINT AT 5,8; PAPER 1; 

FLASH 1 ;"SEI SFORTUNATO !" 

372 PRINT AT 8,0;"Dracula ha be 
vuto il tuo sangue,e cosi' 
sarai un vampiro fino alter 
mine del mondo ! ! !" 

373 FOR x=l TO 200: NEXT x 

374 PRINT AT 13,0;"La tua unica 

possibilità' e' quella 
di ricominciare daccapo." 

375 FOR x=1 TO 700: NEXT x 

376 GO TO 8000 

499 FOR f=l TO 3: DRAW 0,5: 

DRAW 5,0: DRAW 0,-5: 

DRAW 5,0: NEXT f: DRAW 0,5 
: DRAW 5,0: DRAW 0,-5: 
RETURN 

500 BORDER 7: PAPER 7: INK 0: 

CLS 

515 PRINT "Hai trovato uno stai 
Ione nero e ti allontani al 
galoppo, poi..." 

520 FOR a=1 TO 5 

525 FOR f=l5 TO 17: BEEP .003,1 
0: PAUSE 6-f/5: BEEP .003,5 
: PAUSE 6-f/5: BEEP .003,0: 

PAUSE 5-f/5: BEEP .003,1: 
PAUSE 25-f: NEXT f 

526 NEXT a 

530 CLS : PRINT AT 9,0;"trovi u 
na balestra sul terreno. Vu 
oi raccoglierla ?" 

531 PRINT ’TAB 8;" ( si o no )" 

532 INPUT c$: IF c$<>"si" 


AND C$<>"no" THEN 


533 

GO TO 532 
IF c$="si" 

THEN 

LET c=1 

534 

IF c$="no" 

THEN 

LET c=0 

535 

LET r = INT 

(RND* 3) 

: IF r = 2 

536 

THEN GO 
BORDER 1 : 

TO 2 50 
PAPER 1 

: INK 7: 

537 

CLS 

PRINT "Ti 

sei avventurato 


n fondo a unbuio vicolo eie 
co e sei finito apochissimi 
passi da un terribilelupo 
mannaro ! ! !" 

540 IF c=0 THEN PAUSE 100: 

PRINT 1 '"Se tu avessi pres 
o la balestra, avresti avut 
o una possibilità' nell'af 
frontarlo !!": FOR f=l TO 4 
00: NEXT f: GO TO 8000 
545 LET q=INT (RND*26)+65: 

PRINT '"Quando una lettera 
appare sullo schermo , pr 
emi il tasto corrispo 
ndente sul tuo computer per 
provare a colpirlo." 

550 FOR f=l TO 1000: NEXT f: 

CLS 

551 BEEP .5,10 

555 PRINT AT 10,15;CHR$ q 

556 POKE 23658,8 

560 FOR w=l TO 1000000: IF 
INKEY$OCHR$ q THEN 

NEXT w 

561 POKE 23658,0 

565 IF w<70 THEN PRINT AT 15,3 
; FLASH 1 ;"HAI COLPITO IL L 
UPO MANNARO!": GO TO 575 

570 IF w>70 THEN PRINT AT 15,0 
; FLASH 1;"TROPPO TARDI! I 
L LUPO MANNARO ": PRINT 

PAPER 2; INK 7; FLASH 1;" 
TI HA DILANIATO MORTALMENT 
E " 

571 FOR f=1 TO 400: NEXT f: 

GO TO 8000 

575 FOR f=l TO 200: NEXT f: 

GO TO 1000 

800 BORDER 1: PAPER 1: INK 7: 
CLS 

999 CLS : PRINT AT 9,0; FLASH 1 
;"SEI FORTUNATO! HAI ATTRAV 
ERSATO IL CASTELLO SENZA SU 
BIRE DANNI. ": FOR x=1 TO 4 
00: NEXT X 

1000 LET r=INT (RND*2) 

1002 IF r=1 THEN GO TO 1100 
1004 BORDER 4: PAPER 4: INK 0: 
CLS 
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1006 PRINT "Cammini sul ciglio d 

i un burrone": FOR x=1 TO 1 
00: NEXT x: PRINT ''"metti 
un piede in fallo e." 

1007 FOR x=1 TO 200: NEXT x 

1008 BORDER 5: PAPER 5: INK 0: 

CLS 

1010 PRINT AT 6,0; INK 4; 

PAPER 7; INVERSE 1 ;" KKKKKK 
KKKK ": FOR x=7 TO 21 : 

PRINT AT x,0 ; INK 7;" 

{1 0SG8}": NEXT x 

1012 PRINT AT 20,10; INK 1 ;" KKKK 
KKKKKKKKKKKKKKKKKK";AT 21,0 
; INK 1 ;"{32SG8}" 

1014 PRINT AT 20,0; PAPER 7; 

INK 1 ;"KKKKKKKKKK" 

1016 LET 1=13: FOR f=6 TO 1 9 : 

PRINT AT f,10 ;"L": BEEP .0 
5,1-1: PRINT AT f,10; "M" : 

BEEP .05,1: LET 1=1-1: 

PRINT AT f,10 ;" ": NEXT f 

1017 INK 1: OVER 1: FOR f=l TO 1 
0: BEEP .01,RND*10 : PRINT 
AT 20,10;"\": PAUSE 5: 

PRINT AT 20,10;" |": 

PAUSE 5: PRINT AT 20,10;"/ 
": PAUSE 5: NEXT f: OVER 0 

1018 FOR x=l TO 200: NEXT x 

1 020 BORDER 7,: PAPER 7: INK 0: 

CLS 

1022 PRINT AT 10,0; INK 2; 

FLASH 1 ;"SEI ANNEGATO NEL 
PROFONDO OCEANO" 

1024 FOR x=1 TO 300: NEXT x: 

GO TO 8000 

1100 BORDER 1: PAPER 1: INK 7: 

CLS 

1105 LET r=INT (RND*6) 

1110 IF r=0 OR r=l OR r=2 THEN 

GO TO 2000 

1115 IF r=3 OR r=4 THEN GO TO 3 
000 

1120 IF r=5 THEN GO TO 4000 

2000 BORDER 5: PAPER 5: INK 0: 

, CLS 

2005 PLOT 0,87: DRAW 255^0: 

PLOT 0,67: DRAW 10,10: 

DRAW 235,0: DRAW 10,-10 

2010 PRINT AT 10,3; INK 1 ;"T"; 

AT 10,15; INK 2 ;"T";AT 10,2 
8; INK 0 ;"T" 

2015 PRINT AT 8,3;"0";AT 8,15;"1 
";AT 8,28;"2" 

2020 PRINT AT 17,0;"Una coppa e' 

stata avvelenata. In qual 
e ti senti di bere ?" 

2025 LET p=INT (RND*3)+48 


2030 PRINT AT 21,0;"( Premi 0 , 
1 o 2 ) " 

2035 IF INKEY$ <>"0" AND 

INKEY$<>"1" AND INKEY$ 

<>"2" THEN GO TO 2030 

2040 IF INKEY$ =CHR$ p THEN 

BORDER 0: PAPER 0: INK 7: 
CLS : FOR x=1 TO 50: 

BEEP .005,RND*x: NEXT x: 
PRINT PAPER 4; INK 0; 
FLASH 1;AT 10,5;"HAI BEVUT 
O IL VELENO !!": FOR f=l 
TO 400: NEXT f: GO TO 8000 

2045 BORDER 7: PAPER 7: INK 0: 
CLS 

2050 PRINT FLASH 1; PAPER 6; 

TAB 3;"NON HAI BEVUTO IL VE 
LENO ! !" 

2055 PRINT '"'SEI STATO BRAVO (E 
FORTUNATO !)" 

2060 BEEP 1,20: BEEP 1,30: 

BEEP 1,40 

2065 GO TO 500 

3000 BORDER 0: PAPER 0: INK 7: 
CLS 

3005 PRINT "TI RITROVI AL PUNTO 
DI PARTENZA" 

3010 PRINT : FOR f=.l TO 200: 

NEXT f: GO TO 170 

4000 BORDER 7: PAPER 7: INK 0: 
CLS 

4005 PRINT "DOPO QUESTA LUNGA E 
ECCITANTE AVVENTURA...UN 
MIRACOLO ! ! CLIVE SINC 

LAIR,IL VOSTRO AMICO SENZA 
IL QUALE NON AVREMMO 
POTUTO GIOCARE, HA DECISO.. 


4006 PRINT PAPER 1; INK 7; 

FLASH 1 ;"DI GIUNGERE IN VO 
STRO SOCCORSO!" 

4010 FOR f=l TO 275: BEEP .003, 
RND* 50 : NEXT f: CLS 
4015 INK 2: PRINT AT 5,14;"NO"; 
AT 6,14;"PQ";AT 7,14 ;"RS" 

4019 FOR f=l TO 5 

4020 INK 1: PRINT AT 8,13;" 

{SG8} ";AT 9,14 ;"{2SG8}"; 

AT 10,14;"{G5}{SG5}";AT 11, 
14 ;"{2G3}" 

4021 BEEP .3,40 

4025 PRINT AT 8,13 ;"{G3}{G7} 

{SG4}{G3}": PRINT AT 9,13;" 
{G5}{SG5} " 

4026 BEEP .3,20 

4027 NEXT f 

4028 PRINT AT 15,3; 
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4030 RESTORE 4035: FOR n=l TO 2: 
FOR f=l TO 3: READ a,b,w$: 
PRINT w$; : BEEP a,b: 

NEXT f: PAUSE 20: NEXT n 
4035 DATA .5,12,"CLIVE ",.25,9," 
SIN" , .5,5, "CLAIR ",.5,14,"S 
UP",.25,10,"ER-",.5,5,"STAR 

ti 

4040 FOR f=l TO 100: NEXT f: 

CLS 

4045 PRINT AT 8,0; INK 1 ;"Prima 
di andare insieme a lui p 
resso la Sinclair Research. 

Il 

• # • 

4050 PRINT * 1 INK 2;"VI SENTITE 
IN GRADO DI RIPETERE QUESTA 
DRAMMATICA PROVA ?" 

4055 GO TO 8010 

8000 BORDER 6: PAPER 6: INK 0: 
CLS 

8005 PRINT AT 8,6; FLASH 1; 


PAPER 1; INK 7;"UN ALTRO T 
ENTATIVO ?" 

8010 PRINT 1,111 TAB 9;"( si o no 

)" 

8015 INPUT a$ 

8020 IF a$<>"si" AND a$<>"no 
" THEN GO TO 8015 

8025 IF a$="si" THEN RUN 130 

8065 BORDER 0: PAPER 0: INK 7: 

CLS : PRINT AT 3,0;"il prò 
gramma si AUTODISTRUGGERÀ 1 " 

8066 FOR s=100 TO 0 STEP -1 

8067 PRINT AT 10,10;s;" ": 

FOR x=l TO 10: NEXT x: 

NEXT s 

8068 PRINT AT 10,9; FLASH 1;"BAN 
G" 

8069 FOR f=l TO 30: OUT 254,RND* 
8: NEXT f: FOR x=l TO 200: 

NEXT x: RANDOMIZE USR 0 

9999 LOAD ""CODE : GO TO 5 


La foresta stregata 

versione per ZX Spectrum I6K/48K 

listato 1 


9000 

9001 

9002 

9003 

9004 
901 0 

901 5 

9020 

9025 

9030 

9035 

9040 

9045 

9050 

9055 

9060 

9065 

9070 

9075 


FOR a=l44 TO 163 
FOR x=0 TO 7: READ d 
POKE USR CHR$ (a)+x,d 
NEXT x 
NEXT a 

DATA 0,0,24,165,165,90,36,1 
26 

DATA 165,165,126,60,90,24,2 
4,60 

DATA 0,57,126,255,85,0,0,0 
DATA 0,156,126,255,170,0,0, 
0 

DATA 0,1,6,31,61,124,244,80 

DATA 0,128,96,248,188,62,47 

,10 

DATA 98,149,136,82,68,37,65 
, 1 37 

DATA 56,196,66,17,33,70,82, 
9 

DATA .148,100,66,1 52,1 60,82, 
36,27 

DATA 161,18,20,4,130,81,105 
/ 1 34 

DATA 0,0,24,126,255,255,255 
,255 

DATA 28,93,42,28,28,28,20,3 
4 

DATA 28,28,8,62,93,28,20,8 
DATA 7,24,48,96,96,237,210, 
222 


9080 DATA 224,24,12,6,6,183,75,1 
23 

9085 DATA 210,205,65,66,66,65,39 
,40 

9090 DATA 75,51,2,2,2,130,228,20 


9095 DATA 43,24,28,15,7,2,2,2 
9100 DATA 212,24,56,240,224,64,6 
4,64 

9105 DATA 126,126,126,126,60,24, 
60,126 



23 






C64 


printer plotter 

Il programmo esegue un diagramma a torta 
con tratteggio orizzontale All'inizio viene richie¬ 
sto da tastiera il raggio della "torta" (da 80 
a 150 corrispondente ad una dimensione in 
mm. da 16 a 30); il minimo di 80 è comunque 
solo indicativo e può essere ridotto ma il dia¬ 
gramma risulta poi di difficile comprensione. 
Il titolo del diagramma, pure richiesto da ta¬ 
stiera, viene stampato con caratteri di dimen¬ 
sione 2, cioè 20 per riga. Un titolo con meno 
di 20 caratteri verrà stampato automaticamen¬ 
te al centro, se invece i caratteri sono più di 
20, bisognerà tener conto dell'andata a capo 
e delle opportune spaziature. 

I dati da fornire successivamente al computer 
son il numero delle "fette" da tracciare ed il 
valore percentuale che si vuol loro attribuire. 
I valori devono essere rappresentati da nume¬ 
ri interi in quanto i decimali causano impreci¬ 
sioni o veri e propri errori (per valori inferiori 
ad I %), inoltre numeri costituiti da più di 2 
o 3 cifre potrebbero uscire dall'area plottabile 
con conseguente sfasatura totale delle scritte. 
Ciascuna fetta si può evidenziare rispondendo 
"S"' all'apposita domanda: il computer stac¬ 
cherà la fetta dalla torta e la traccerà più al¬ 
l'esterno lungo la bisettrice del suo angolo. La 

1 rem ************************** 

2 REM * DIAGRAMMA A TORTA 

★ 

3 REM * SU PLOTTER 1520 

* 

4 REM * PATRIZIA E PIETRO SALVA 
RANI * 

5 REM ************************** 
*★★★★** 

6 PRINTCHR$(147):FORM=1T03:PRINT 
:PRINTSPC(2) ; : 

7 PRINT"SCEGLI IL RAGGIO <80-150 
>";:INPUTRG 

1 0 CF= 1 :CI=50 

20 DIM AN(50),A$(50),EV(50),AX(5 
0),AY(50),PC(RG),AC(RG),PR(RG 
) ,AR(RG) 


1520 — . printer plotter 1570 


somma dei valori percentuali deve essere ugua¬ 
le a 100; in caso contrario essi vengono nuo¬ 
vamente richiesti. 

C'è poi la scelta del tipo di tratteggio (fitto, me¬ 
dio o rado). 

A questo punto il plotter eseguirà da solo tutto 
il lavoro. Se il disegno eseguito ha uno scopo 
esclusivamente grafico-ornamentale, occorre 
dare il RUN STOP subito dopo il completamen¬ 
to del tratteggio per evitare la scritta dei valori 
percentuali. 

Proseguendo, il computer chiederà se si desi¬ 
dera apporre le didascalie. Se la didascalia è 
lunga può essere utile sapere che sulla prima 
riga di essa, il plotter andrà a capo dopo il 29° 
carattere (perché i primi 11 sono usati dalla 
routine) o dopo il 28° se la torta è intera 
( 100 %). 

Semplici modifiche si possono apportare per 
spostare il disegno verso un margine del foglio 
(il centro della torta corrisponde alla origine re¬ 
lativa fissata nelle linee 230 e 450). È anche 
possibile ottenere il tratteggio di un unico colo¬ 
re sostituendo alla variabile C della linea 3220 
la cifra opportuna (0 = NERO, I =BLU, 2- 
VERDE e 3 = ROSSO). 

25 DIMPP(RG) ,D$ (20) 

30 DEFFNRQ(P)=SQR(RGt 2-P T 2) 

40 DEFFND(X)=(X/SIN(SM*/CI))*CO 
S(SM*/CI) 

90 PRINTCHRS(147):FORM=lT05:PRIN 
T:NEXT:PRINTSPC(2 ); 

100 PRINT"TITOLO (20 CARATTERI P 
ER RIGA)"TPRINT:PRINT:PRINTS 
PC(2); :INPUTT$:PRINT 
105 INPUT"{ 2 SPAZI{NUMERO DELLE 
FETTE";F 

110 FORK=lTOF:PRINT:PRINT" 

{ 2 SPAZI}VALORE{SPAZI}% DEL 
LA FETTA "K;:INPUTAN(K):PRIN 
T 

115 PRINTSPC(2)"LA VUOI EVIDENZI 
ARE? <S/N>"; 

120 INPUTUS:IFU$ = "S"THENEV(K)=1 : 
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G0T0130 

125 IFU$<>"N"THENl20 
130 NEXT 

140 FORK=lTOF:SM=SM+AN(K):NEXT 
145 IFINT ( SM* 100)01 0000THEN1 50 
147 G0T0155 

150 PRINT:PRINT:PRINTSPC(2)"DATI 
NON CORRETTI":SM=0:GOTOl05 
155 PRINTCHRS(147):PRINT:PRINT:P 
RINT 

160 PRINTSPC(2)"TRATTEGGIO FITTO 
{ 2 SPAZI}< F >"SPRINT 
170 PRINTSPC(2)"TRATTEGGIO MEDIO 
{ 2 SPAZI}< M >":PRINT 
180 PRINTSPC(2)"TRATTEGGIO RADO 
{ 3 SPAZI}< R >" 

190 GETQS:IFQ$ = "F"THENIT = 2 : GOTO2 
20 

200 IFQ$="M"THENIT=4:GOTO220 
210 IFQ$<>"R"THENl90 
215 IT=6 

220 OPEN4,6:OPENl,6,1:OPEN2,6,2: 
OPEN3,6,3 

222 PRINT#3 f 2:IFLEN(T$)>=20THEN2 
28 

225 W=INT((20-LEN(T$))/2):FORK=1 
TOW:PRINT#4," "; :NEXT 
228 PRINT#4,T$:PRINT#3,1 
2 30 PRINT#1,"M",240,-200 SPRINT#1 
, " I " : REM * * *' CENTRO DELLA' TO 
RTA *** 

235 SM=0 

240 FORK=1TOF:SM=SM+AN(K):IFEV(K 
)=1THENGOSUB2000:G0T02 60 
250 GOSUB2100 

260 NEXT 
270 C=0 

280 MT=INT(RG/IT):YY=0:MM=MT 

290 FORW=lTOMT:YY=YY+IT 

300 PC(W)=FNRQ(YY): AC(W)=-PC(W) 

310 NEXT 

320 SM=0:C=2:PRINT#2,0 
330 FORK=lTOF 

332 IFSG=0ANDCF=-1THENSG=1:K=K-1 
:GOTO340 
335 SM=SM+AN(K) 

337 GOSUB3200 

340 IFSM>=50THENGOSUB 2200:IFF=1 
THEN375 

345 IFSM=0THEN370 

350 IFSM>25THENGOSUB2600:GOTO370 

360 IFSM< = 2 5THENGOSUB2 4 00 
370 NEXT:PRINT#2,0:GOT0380 

375 IFMT=0THEN370 

376 GOTO 340 

380 SM=0:IFAN( 1 ) < 3ANDAN(F)< 3THEN 
388 


382 FORK=lTOF-1 :IFAN(K)< 3ANDAN(K 
+1)<3THEN388 
384 SX=12:SY=15:GOTO390 
388 PRINT#3,0:SX=6:SY=8 

390 FORK=1TOF:SM=SM+AN(K):BI=SM- 
AN(K)/2 

400 PRINT#!,"R",RG*COS(BI*/CI)+ 
AX(K),RG*SIN(BI*/CI)+AY(K) 

410 PRINT#1,"J",(10+RG)*COS(BI* 
/CI)+AX(K),(10+RG)*SIN(BI*/ 
CI)+AY(K) 

430 A$=STR$(AN(K))+"%" 

440 IFBI>25ANDBI<75THENGOSUB 100 
0:GOTO450 

445 IFBI> = 75THEN4 4 8 

446 GOTO450 

448 PRINT#1,"R",(10+RG)*COS(BI* - 
/CI)+AX(K),(10+RG)*S IN(BI*/ 
CI)+AY(K)-SY 

450 PRINT#4, A$;:PRINT#1,"M",240, 
-200:PRINT#1,"I":NEXT:REM ** 
* CENTRO TORTA *** 

455 PRINT#3,1:FORW=lT012:PRINT#4 
:NEXT 

460 PRINTCHR$(147):FORM=1T04:PRI 
NT:NEXT:PRINTSPC(2); 

465 PRINT"VUOI LE DIDASCALIE? <S 
/N> " 

4 70 GETY$:IFY$ = "N"THEN61 0 
480 IFY$<>"S"THEN4 70 
490 FORK=1TOF:PRINT:PRINTSPC(2) " 
DIDASCALIA FETTA"K 
495 INPUTDS(K):IFD$(K)=""THEN495 

500 NEXT 
510 C=2 

520 FORK=lTOF 
530 PRINT#1,"D",0,25 
540 PRINT#1,"D",40,25 
550 PRINT#1,"D",40,0 
560 PRINT# 1 ,"D",0,0 
570 GOSUB3200 

580 FORW=ITT02 5STEPIT :PRINT# 1 ,"M 
,0,W:PRINT#1,"D",40,W:NEXT: 
PRINT#1,"H" 

590 A$=STR$(AN(K))+"%":IFAN(K)<1 
0THENA$=" "+A$ 

595 PRINT#2,0 

600 PRINT# 4,"{ 4 SPAZI}"A$" = " ; 

D$(K):PRINT#4:NEXT 
610 OPEN7,6,7 SPRINT#7 
620 CLOSEl:CLOSE2:CLOSE3:CLOSE4: 
CLOSE7:END 

1000 REM *** POSIZIONE DELLA SCR 
ITTA *** 

1 005 S=LEN(A$)*SX:IFBI>50THEN1 01 
5 
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101 0 PRINT#1 ,"R",(10+RG)*COS(BI* 
/CI)+AX(K)-S,(10+RG)*SIN(B 
I*/CI)+AY(K): RETURN 
1 01 5 PRINT#1 ,"R",(10+RG)*COS(BI* 
/CI)+AX(K)-S,(10+RG)*SIN(B 
I*/CI)+AY(K)-SY 

1020 RETURN 

2000 REM *** TRACCIA FETTA EV. * 
* * 

2005 AX(K)=25*COS((SM-AN(K)/2)* 
/CI) 

2010 AY(K)=25*SIN((SM-AN(K)/2) * 
/CI) 

2020 SM=SM-AN(K):GOSUB3000:SM=SM 
+AN(K) 

2030 PRINT#1,"R", AX(K),AY(K) 

2040 PRINT#1,"J",X,Y 
2050 GOSUB3100 

2060 PRINT#1,"J",AX(K) f AY(K) 

2070 RETURN 

2100 REM *** TRACCIA FETTA NON E 
V. *** 

2105 SM=SM-AN(K):GOSUB3000 :SM=SM 
+AN(K) 

2110 IFK=1ANDEV(F)= 0THEN PRINT#1 
,"R",X,Y:G0T02150 
2120 IFK>1 ANDEV(K-1)=0THEN PRINT 
#1,"R",X,Y:G0T02150 
2130 PRINT#1,"R",0,0 
2140 PRINT# 1 ,"J" ,X,Y 
2150 GOSUB 3100 
2155 IFF=1THEN21 70 
21 60 PRINT#1,"J",0,0 
2170 RETURN 

2200 REM *** ANGOLO OLTRE 50% ** 
★ 

2205 FORW=1TOMT 

2210 AR(W)=AC(W) :IFK=1 THENAR(W) = 
AC (W) 

2212 NEXT 

2215 FORW=(MP+1)TOMT:PR(W)=PC(W) 

: NEXT 

2220 MX=MT:GOSUB3500 

2225 IFSM= 50ANDK=FTHENMT=0: RETUR 
N 

2230 IFSM=50THENSG=1:GOTO 2270 
2240 IFF=1THENPRINT#!,"R",RG+AX( 
K),AY(K):GOTO2260 
2250 PRINT#1,"R",AX(K),AY(K) 

2260 PRINT#1,"J",-RG+AX(K),AY(K) 

2270 SM=SM-50 :CF=-1 :MT=MM:MA= 0 :M 
P=0:MX=0 
2280 RETURN 

2400 REM *** ANGOLO ENTRO 25% ** 
* 

2405 IFSM=25THENMA=MT:MX=MA:FORW 


= 1 TOMA :AR(W)=0 :NEXT:GOT02 4 4 
0 

2410 MA=INT(RG*SIN(SM*/CI)/IT) 

2420 MX=MA:GOSUB3300 

2430 FORW=lTOMX:AR(W)=PP(W):NEXT 


2440 FORW=(MP+1)TOMX:PR(W)=PC(W) 

: NEXT 

2450 GOSUB3500 

2460 MP=MA:FORW=lTOMP:PR(W)=AR(W 
):NEXT 
2470 RETURN 

2600 REM *** ANGOLO OLTRE 25% ** 

★ 

2605 MA=INT(RG*SIN(SM*/CI)/IT) 
2610 MX=MA:GOSUB3300:MX=MT 
2620 FORW=lTOMX:AR(W)=PP(W):NEXT 

2630 FORW=(MA+1)TOMX:AR(W)=AC(W) 

: NEXT 

2635 FORW=(MP+1)TOMX:PR(W)=PC(W) 

: NEXT 

2640 GOSUB3500 

2650 MP=MA:FORW=lTOMP:PR(W)=AR(W 
):NEXT 

2660 MT=MA:RETURN 

3000 REM *** CALCOLO X E Y *** 

3010 X=RG*COS(SM*/CJ)+AX(K) 

3020 Y=RG*SIN(SM*/CI)+AY(K) 

3030 RETURN 

3100 REM *** TRACCIA ARCO *** 
3110 FORH=SM-AN(K)TOSM 
3120 X=RG*COS(H*/CI)+AX(K) 

3130 Y=RG*SIN(H*/CI)+AY(K) 

3140 PRINT#1,"J",X,Y:NEXT 

3150 RETURN 

3200 REM *** CAMBIO COLORE *** 
3205 IFF=1THENC=3:GOTO3220 
3207 C=C+1 : IFC>3THE!1C= 1 
321 0 IFK=FAND(F-INT(F/3/ *3/=1 THE 
NC=1 

3220 PRINT# 2,C 
3230 RETURN 

3300 REM ** CALCOLO PUNTI SU RAG 
GIO ** 

3310 YY=0 

3320 FORW=lTOMX:YY=YY+IT 
3330 PP(W)=FND(YY) 

3340 NEXT:RETURN 

3500 REM ***** TRATTEGGIO ***** 
3505 YY= 0 

3510 FORW=lTOMX:YY=YY*IT 
3520 PRINT#1,"R",PR(K)*CF+AX(K;, 
YY*CF+AY(K) 

3530 PRINT#1,"J",AR(W)*CF-‘-AX(X < , 
YY*CF+AY(K) 

3540 NEXT:RETURN 
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Sing-Sing 



Si trotto di un gioco scritto interamente in Ba¬ 
sic per il VIC 20 inespanso. 

Usa le capacità grafiche e sonore del VIC e, 
nonostante tutto, mantiene una discreta velo¬ 
cità di azione. 

Il gioco consiste nel far cadere dentro un sec¬ 
chio, che voi spostate a destra e a sinistra con 
i tasti H e K, le bombe che i galeotti lanciano 
improvvisando un tentativo d'evasione. Tutta¬ 
via si tratta di roba fatta alla buona, e cosi 


10 POKE5 6 f 2 8 

15 FORT=1T02 6 : READX:NEXT 
20 FORT=OTOl36 
30 READA$: IFA$ = "*"THENi 80 
40 POKE7168+T,VAL(A$) 

50 NEXT 

51 DATA217 f 400,213,400,223,400,2 
27,200,234,200,230,400,227,20 
0,234,200,230,400 

52 DATA223,400,227,400,217,400,2 
13,600 

60 DATA255,32,32,32,255,2,2,2 
70 DATA8,16,16,56,116,254,124,56 

80 DATAO,0,0,0,0,8,28,29,0,40,20 
,60,36,60,24,84,84,85,85,85,8 
5,85,85,85 

100 DATA255,0,255,213,171,255,25 
5,1 26 

110 DATA124,127,124,126,124,60,2 
4,61,0,0,0,0,0,0,252,160 
120 DATAI 27,238,254,238,254,238, 
254,254 

130 DATA255,129,129,129,129,129, 
1 29,1 29,255,1 , 1 , 1 , 1 , 1 , 1 ,1 
140 DATA255,129,129,129,129,129, 
129,255,255,1,1,1,1,1,1,255 
150 DATA255,129,129,129,129,161, 
245,255,255,81,41,121,73,121 
,49,255 

160 DATA85,85,65,85,85,85,85,255 

170 DATA24,60,102,195,195,102,60 
24, * 

180 POKE36869,255 

190 POKE36866,PEEK(36866)ORI 2 8 


è necessario che cadano in terra 3 bombe per¬ 
ché facciano effetto su di voi distruggendovi. 
A questo punto però, svegliato dal botto, esce 
pronto un secondino che riporta in cella gli evasi 
in barba al loro accanimento nello scagliarvi 
gli ordigni. 

La velocità di gioco aumenta man mano che 
voi afferrate le bombe dentro il secchio. In al¬ 
to sono mostrati il vostro punteggio e il record. 
Buona fortuna!! 


200 PRINT"{CLR}{ 7 DES}{RVS} 

{BLK}S{RED}I{CYN}N{PUR}G- 
{.GRN} S { BLU} I {YEL} N{ BLK} G 
{OFF}":P0KE3 6 878,1 5 
210 POKE36879,25 

220 FORZ = 150TO38STEP-2 :P0KE36875 
,Z+100 :POKE36865,Z:F0RG=1T05 
0:NEXTG 

230 NEXTZ:HI = 0:POKE36875,0 
2 40 PRINT"{CLR}":POKE36879,28 :SC 
= 0 :P=11:D=15:F=0 

250 PRINT"{ 4 GIU'}";:FORT=OTOl4 
:PRINT"{GRN}@@@@@@@@@@@@@@@@ 
@@@@@@»;;NEXTT 

260 PRINT"{HOME}{BLK}{ 9 GIU'} 

{ 3 DES}IJ{ 2 DES}IJ 
{ 2 DES}IJ{ 2 DES}IJ 
{ 2 DES}IJ" 

270 PRINT"{ 3 SU}{ 3 DES}KL 
{ 2 DES}KL{ 2 DES}KL 
{ 2 DES}KL{ 2 DES}KL" 

280 FORJ = 0TO21 :POKE8142+J,16:POK 
E38862+J,3:NEXTJ 
290 F0RX=2T018STEP4 
300 POKE7768+X,l:POKE3848 8+X,0 :P 
OKE7 76 9+X,4 :POKE3 84 89+X,2 
310 POKE774 6+X,2 :POKE3 8466+X,2 :P 
OKE774 7+X,3 :POKE3 84 6 7+X,0 

320 NEXTX:GOSUB1000 
330 POKE8120+P,5:POKE38840+P,4 
340 PRINT"{HOME}{RVS}SC=";"{RVS} 
"SC"{OFF}":PRINT"{HOME} 

{ 12 DES}{RVS}HI={OFF}";" 
{RVS}"HI"{OFF}" 

350 G=INT(RND(0)*5):IFG=0THENW=2 
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360 IFG=lTHENW=6 
370 IFG=2THENW=1 0 
380 IFG=3THENW=14 
390 IFG=4THENW=18 
400 FORT=WTOW+22*l3STEP22:POKE78 
12+T,1 :POKE38532+T,0 :POKE7 81 
2+T-22,0 :POKE3 8 532+T-22,5 
410 GOSUB490:NEXT 
420 IFPEEK(8120+W)=5THENPOKE81 20 
+W-22,0:POKE38818+W,5:D=D-1: 
GOSUB550 

430 IFPEEK(8120+W)<>5THENF=F+1:P 
OKE80 98+W,0:POKE3 881 8+W,4:PO 
KE8120+W,1 :POKE3884 0+W,7:GOS 
UB600 

440 IFF=3THENGOSUB640SPRINT" 

{HOME}{GIU'}{RVS}PREMI SPACE 
PER CONT.{OFF}":GOSUB570 
450 GOTO340 

460 POKE36878,1 5:FORT=255T01 27ST 
EP-1:POKE36874,T:POKE36875,T 
:POKE36876,T 

470 POKE36877,T:POKE36879,T:NEXT 
T:POKE36879,28 

480 POKE36874,0 :POKE36 875,0 :POKE 
36876,0:POKE36877,0:RETURN 
490 IFD>1THENFORO=lTOD:NEXTO 
500 J=PEEK(197):IFJ=64THENRETURN 

510 IFJ=44ANDP<21THENPOKE8120+P, 
160:P=P+1 

520 IFJ=43ANDP>OTHENPOKE8120+P,1 
60:P=P-1 

530 POKE8120+P,5:POKE38840+P,4 
540 RETURN 

550 POKE36878,1 5:FORT=230TO1 80ST 


EP-1 :POKE36877,T:NEXT:POKE3 6 
877,0:SC=SC+100 
560 RETURN 

570 GETA$:IFA$<>" "THEN570 
580 IFSC>HITHENHI=SC 
590 GOTO240 

600 IFF<3THENGOSUB630:RETURN 
610 POKE80 98+W,0 :POKE3 8 81 8+W,4:P 
OKE8120+W,1 :POKE3884 0+W,7 :GO 
SUB460 
620 RETURN 

630 POKE36878,15:FORH=128T0255ST 
EP3:POKE3 6 87 5,H:NEXTH:POKE3 6 
875,0 :RETURN 

640 POKE36878,15:FORT=0TO20 
650 POKE3 687 7,T+2 00 :FORG=l2 8T025 
5STEP2 0:POKE3 6874 ,G:NEXTG: PO 
KE36877,0:POKE36874,0 
660 POKE7745+T,160:POKE7767+T, 1 6 
0 

670 POKE77 4 6+T,6 :POKE384 66+T,2 :P 
OKE7 74 7+T,7 :POKE38467+T,0 : PO 
KE776 8+T,8 :POKE38488+T,0 
680 FORY=0TO50:NEXTY 
690 NEXTT 

700 F0RTT=3T021STEP4 
710 POKE7 87 8+TT,13:POKE3 8 5 98+TT, 
0 :POKE7 879+TT,14:POKE38 5 99+T 
T, 0 

720 POKE7901 +TT,15:POKE38621 +TT, 
0 

730 NEXTTT:RETURN 
1 000 RESTORE:POKE3 6 87 8,1 5:FORL= 1 
TOI3 :READX: READY:POKE3 687 5, 
X :FORG=1TOY:NEXT 
1001 NEXTL:POKE3 6875,0 :RETURN 


Castle dungeon 



Lo scopo del gioco è di trovare tre bombe na¬ 
scoste nelle stanze e nei corridoi delle prigioni 
sotterranee del castello. 

Esse sono poste da un cattivo stregone che vuo¬ 
le distruggere il castello. 

Egli può mettere nove animali nelle stanze, a 
guardia delle bombe. 

Se trovi la spada puoi anche lottare contro gli 
animali che, fortunatamente, sono ciechi, ma 


puoi anche perdere, ed essere ucciso dall'ani¬ 
male che hai sfidato. 

Se riesci a trovare la chiave, puoi aprire le por¬ 
te delle stanze. 

Illuminazione e levitazione. 

Durante la tua esplorazione delle prigioni, puoi 
portare con te una lucerna, la quale illumina 
l'area circostante a te. 

In questo gioco, se si corre troppo velocemen- 
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te, senza essre prudenti, si rischia di cadere 
dentro alle fosse disseminate nei sotterranei del 
castello. 

In questo caso, il gioco termina. 

Quando ci si trova vicino ad una fossa, per po¬ 
terla superare indenni, è necessario premere 
il tasto 1 che provoca una breve levitazione 
dell'omino, il quale può tranquillamente pas¬ 
sarci sopra. 

Per disinnescare le bombe si hanno a disposi¬ 
zione cinque minuti. 

Se non si riesce a disinnescare tutte e tre le 


programma I 

1 PRINTCHR$(147) :POKE52, 29 :POKE5 
6,29:CLR 

2 SV=36873:S1=SV+1:S2=SV+2:S3=SV 
+3 :V=SV+5:SB=SV+6 

3 READL, N :IFN=-1THEN5 

4 FORJ-OTON : READS : POKEL+J, S : NEXT 
: GOTO3 

5 POKESB,110 :FORT=1TO50 0:NEXT 

6 FORM=1T03:READA,B,C,D,E 

7 POKES1 ,A :POKES2,B:POKES3,C:FOR 
J = 15TOESTEP-1 :POKEV,J:FORT=lTO 
D:NEXT:NEXT:NEXT 

10 FORT=lT02000 :NEXT 

11 PRINTCHR$(147):FORT=lTO500:NE 
XT 

12 POKESB,59:POKESV-4,242 

13 FORT=lTO500:NEXT 

14 PRINTCHR$(14)"{CLR}{GIU 1 }CERC 
A E DISINNESCA LE" 

15 PRINT"BOMBE NASCOSTE NELLA" 

16 PRINT"PRIGlONE SOTTERRANEA." 

17 PRINT"{ 2 GIU'}NON CADERE DEN 
TRO LE " 

18 PRINT"FOSSE E NON FARTI" 

19 PRINT"MANGIARE DAGLI ANIMALI" 

20 PRINT"{GIU'}PREMI ’L' PER UNA 

Il ■" 

21 PRINT"BREVE LEVITAZIONE." 

22 PRINT"{ 2 GIU'jHAI 5 MINUTI P 
ER":PRINT"COMPLETARE LA TUA": 
PRINT"RICERCA." 

23 POKE143,VAL(MID$(TI$,5,2)) 

24 READCL: IFCL=-1THEN2 6 

25 FORJ=CLTOCL+7:READCC:POKEJ,CC 
:NEXT:GOT02 4 

26 PRINT:PRINT"{ 2 SPAZI}PREMI U 
N TASTO PER{ 9 SPAZI}INIZIARE 

II 

27 GETA$:IFA$=""THEN27 


bombe nel tempo disponibile, esse esploderan¬ 
no e il castello verrà distrutto. 

Se, al contrario, si riesce a rendere innocue le 
bombe prima dello scadere dei cinque minuti, 

10 stregone collocherà le bombe in altri luoghi, 
dandovi la possibilità di ritentare, nella vostra 
ardua impresa, il salvataggio del castello. 

11 programma si compone di due parti separa¬ 
te: la prima parte mostra le istruzioni e pre¬ 
para i caratteri programmati. 

Subito dopo carica il secondo programma, che 
.è il gioco vero e proprio. 


28 PRINT"{CLR}":FORJ = 1T03:POKESV 
+J,0:NEXT:S$=CHR$(131)+CHR$(1 
3) 

29 FORI=1TOLEN(S$):POKE630+1,ASC 
(MID$(S$,I)):NEXT:POKEl98,I:E 
ND 

30 DATA7878,20,114,64,73,73,32,1 

10.85.73.110.85.64.73.112.64, 
75,85,64,73,85,73,110 

31 DATA7900,20,93,32,93,93,32,93 
,93,93,93,93,64,73,107,64,32, 
93,32,93,93,93,93 

32 DATA7 922,20,113,64,75,74,64,1 

15.125.74.75.74.64.75.109.64, 

73.74.64.75.125.74.75 

33 DATA7792,17,85,64,73,112,64,1 
10,85,64,75,64,114,64,112,32, 

32.112.64.75 

34 DATA7814,16,93,32,32,107,64,1 
15,74,64,73,32,93,32,93,32,32 
,107,64 

35 DATA7836,17,74,64,75,75,32,12 
5,85,64,75,32,75,32,74,64,75, 
109,64,73 

40 DATA-1,-l 

41 DATAO,0,219,36,5,0,236,231,36 
,5,237,231,226,100,0 

44 DATA7632,247,227,246,193,215, 
247,235,235,7640,255,34,34,34 
,255,68,68,68 

45 DATA7648,255,231,195,129,129, 

1 31 ,1 99,255,7656,255,1 91 ,95,6 

4.90.186.255.255 

46 DATA7664,191,121,112,1,0,135, 
55,1 1 5,7672,2 55,239,247,2 31 ,1 

95.195.231.255 

47 DATA7424,255,255,255,255,255, 
255,255,255,7440,255,255,255, 
129,129,255,255,255,7432 
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48 DATA255,255,255,255,255,255,2 
55,255,7448,255,253,251 ,247,1 
43,207,175,255 


programma 1 

1 PRINTCHR$(147);CHR$(144):Sl=36 
874:S2=S1+1:S3=S1+2:S4=Sl+3:V= 
SI+4:SB=S1+5:CL=Sl- 5 

2 C=30720:L=7680:MW=59:FC=0:PC=3 
3:BT=8182:FV=15:FP=0:CS=0:P0KE 
SB,8:R=371 54 :AF=0:KF=0 

3 POKEV,15:POKECL,255:FORJ=LTOL+ 
50 5 :POKEJ+C,0 :POKEJ,32:NEXT 

4 READD:IFD=-1THEN6 

5 POKEL+D,MW:L=L+D:G0T04 

6 L=7680:F0RJ=1T09:READD:POKEL+D 
,34:NEXT 

7 FORJ=lT046:READD:POKEL+D,33:NE 
XT 

8 FORJ=lT03:GOSUB67:POKEB+L,63:N 
EXT 

9 FORJ=l T09 :GOSUB67 :POKEB+L, 36 :N 
EXT 

10 PC=32:GOSUB67:POKEB+L,61 

11 GOSUB67:POKEB+L,35 

12 FORJ = lT03:GOSUB67:POKEB+L,60 : 
NEXT 

13 GOSUB67:M=B+L:TI$="000000" 

14 POKER,127:JS=(PEEK(37137)AND2 
8)OR(PEEK(37152)ANDl28):JS=AB 
S(JS-100)/4-7:POKER,255 

15 IFTI$>"000500"THEN48 

16 IFJS=6THENDR=-22 

17 IFJS=5THENDR=22 

18 IFJS=3THENDR=-1 

19 IFJS=11THENDR=1 

20 IFJS=7THENDR=0 

21 P=PEEK(DR+M):IFP=59THENDR=0 

22 IFP=35THENCS=1:POKEBT,35:POKE 
BT+C,5 :BT=BT+1 

23 IFP=36THEN78 

24 IFP = 3 4ANDKF=OTHENGOSUB7 3 

25 IFP=61THENKF=1 :POKE8181 ,61 :PO 
KE8181+C,5 

26 GETL$:IFL$="L"THENLS=1:GOSUB8 
2 

27 IFP=60ANDLS<>1THENFP=1 

28 IFP=60ANDLS=1THENFP=2:PIT=M+D 
R 

29 IFP=63THENAF=AF+1:POKEBT,63:P 
OKEBT+C,5 :BT=BT+1 :GOSUB75 

30 IFDR=0ANDFC=1THEN44 

31 POKEM,32 :POKEM+C,7 :POKEM+DR+C 
, 7 :POKEM+DR,58 

32 POKEM+DR+C-2 2,7:POKEM+DR+C+22 
,7:POKEM+DR+C+l,7:POKEM+DR+C- 
1,7 


49 DATA7456,191,121,112,1,0,135, 
55,115,7464,255,255,231,0,0,2 

31,255,255,-1 


33 POKEM+DR+C-23,7:POKEM+DR+C+23 
,7:POKEM+DR+C+21 ,7 :POKEM+DR+C 
-21,7 :FC=1 

34 IFP=350RP=61THENGOSUB70 

35 IFFP=1 THENPOKEM+DR,60:G0T076 

36 IFPS=1THENPOKEPIT,60:PS=0 

37 IFFP=2THENPS=1:FP=0 

38 LS=0:IFDR=0THEN44 

39 POKES3,2 40 :FORT=lT02:NEXT:POK 
ES3,0 

40 IFDR=-22THENPOKEM+C+23,0:POKE 
M+C+22,0 :POKEM+C+21 ,0:GOTO4 4 

41 IFDR=1 THENPOKEM+C-23,0 :POKEM+ 
C-l,0 :POKEM+C+21 ,0:GOTO4 4 

42 IFDR=-1THENPOKEM+C-21,0:POKEM 
+C+1 ,0 :POKEM+C+2 3,0 :GOT04 4 

43 POKEM+C-23,0:POKEM+C-22,0:POK 
EM+C-21,0 

44 M=M+DR:FC=1 :1FAF=3THEN46 
4 5 GOTOl 4 

46 POKESB,27 :FORT=1TO8000 :NEXT:P 
OKECL, 240 :PRINTCHR$(147) :PRIN 
T"COMPLIMENTI : HAI VINTO" 

47 PRINT:PRINT:PRINT"{GIU'} 

{ 2 SPAZI}ANCORA ?":G0T052 

48 POKES4,220 :FORJ=l5TOOSTEP-.5 : 
POKESB,127 :POKEV,J:FORT=l TOl 0 
:NEXT 

49 POKESB,42:FORT=lTOl0:NEXT:NEX 
T:POKES4,0 

50 FORT=lT05000:NEXT 

51 POKECL,240:PRINTCHR$(147):PRI 
NT"{ 2 SPAZI}ANCORA? " 

52 GETA$:IFA$=""THEN52 

53 IFA$ = "S"THENRESTORE:GOTOl 

54 IFA$<>"N"THEN52 

55 END 

56 DATA0,1 ,1,1,1,1, 1,1,1 ,1,1, 1,1 
,1 ,1,1 ,1 ,1 ,1 ,1,1,1 ,1 ,3,4,6,8, 

1.3.4.2.1.1.2.2.1 ,1 ,1 ,1 ,2 

57 DATAI,2,1,1,1,2,2,4,2,4,2,1,2 
,5,2,2,1,1,2,1,3,2,1,2,3,2,2, 
3,4,2,1,2,1,5,2,2,1,2,4,5 

58 DATAI ,1,1,1,1,1,2,3,2,1,1,1,1 
,2,1 ,1 ,1 ,1,7,3,6,2,3,1,2,1,1 , 

2.1.1.1.1.2.1.1.1.1.2.3.1 

59 DATA2,6,2,2,4,2,1,2,1,2,3,3,4 
,2,7,1,2,1,1,1,1,1,1,1,1 ,4,1 , 

2.1.1.2.1.12.2.3.2.2.1 ,1 ,1 

60 DATA2,1,2,2,1,2,2,3,2,2,1,2,2 
,3,3,2,1,1,1,1,2,2,1,2,2,1 ,1 , 

1.3.3.4.2.2.1.4.3.1.1.1 
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61 DATAI,2,2,1,1,4,,1,2,2,9,6,2, 
1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ,, 2 , 1 , 1 , 
2,1,1,1,1,1,4,2,5,2,8,1 ,6 

62 DATA3,4,3,1,1,1 ,1 , 1 , 1 ,1 ,1 ,1 ,1 

,1 ,1 ri ,1 ,1 f 1 #1 »1 »1 ri »1 ,-l 

63 DATA67,72,102,127,140,240,280 
,316,419 

64 DATA23,24,26,27,28,45,46,48,4 
9,50,82,83,84,105,106,123,124 
,125,145,146,147,162,163 

65 DATAI 84,1 85,1 95,1 96,21 7,21 8,3 
01,302,323,324,338,339,360,36 
1,441,442,443,445 

66 DATA4 63,464,465,466,467 

67 B=INT(RND(1)*501)+0 

68 IFPEEK (B+L) OPCTHEN67 

69 RETURN 

70 POKES3,185:POKES2,2 02:POKESl , 
202:FORJ = l5TOOSTEP-.5 :POKEV,J 
:NEXT:POKES3,21 0 

71 POKES1 , 232:POKES 2,232 :FORJ=15 
TO0STEP-.05:POKEV,J:NEXT 

72 FORJ=0TO2:POKES1+J,0 :NEXT:POK 
EV,15:RETURN 

73 POKEM,32 :POKEM+DR,37:POKES4,1 


30:FORJ = l5TO0 STEP-1 :POKEV,J:N 
EXT:POKES4,0 : POKEM+DR,34 

74 POKEM,58:POKEV,15:DR=0:FORT-1 
TO500:NEXT:RETURN 

75 POKES3,22 0 :FORT=lTO50:NEXT: PO 
KES3,0:RETURN 

76 FORJ=2 54T0180STEP-.5 :POKES2,J 
:POKES3,J:POKEV,FV:FV=FV-.1:N 

.EXT :POKES 2,0:POKES 3,0 
' 77 POKECL,240:PRINTCHRS(147) :PRI 
NT"SEI CADUTO NELLA FOSSA":GO 
T081 

78 FORG=190TO2 35 :POKES4,G:FORT=l 
TOl0:NEXT:NEXT:FORG=235TO220S 
TEP-1: POKES4,G:FORT=lTO2 0 

79 NEXT:NEXT:FORJ=l5T05STEP-.1:P 
OKEV,J:NEXT:POKES 4,0:POKEV,15 
:IFCS=1THEN24 

80 POKECL,240:PRINTCHR$(147):PRI 
NT"{ 7 SPAZI}MANGIATO!" 

81 POKESB,27 :FORT=lT03000:NEXT:G 
OT051 

82 FORI = 0TO3 :FORJ=0TOl 5:POKEV,-J: 
N=180 + 1*J:POKES3,N:NEXTJ,I : PO 
KES3,0:RETURN 


Per ricevere gli arretrati di 



compilare il seguente tagliando: 


J \soft 


Nome 


Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Cognome 

Indirizzo 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato 


□ contani allegati 
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PERSONAL COMPUTER: 
le prime, le migliori ! 



PERSONAL SOFTWARE 
L’unica che presenta software 
per tutti i personal: 

Commodore, Apple, Sinclair, T.I., HP, 
Sharp, Sega, Olivetti, ecc 




